use a named column in table

trevorc · #1 08-21-2019, 02:22 PM

Hi all,
I have a table with headers, how can I change the code below to reference the column name in stead of the range of cells the same as when I use it to select the data from that Row.
Any ideas appreciated, thanks.

Code:

      If Not Intersect(Target, Sh.Range("AM4:AM5000")) Is Nothing Then ' notes field
            ActiveCell.FormulaR1C1 = "Date " & Date & " , " & Intersect(ACRow, tblColumns("Contact Name").Range) & ", " & _
            Intersect(ACRow, tblColumns("Company Name").Range) & vbCrLf & Intersect(ACRow, tblColumns("Email Address").Range) & " Phone " & _
            Format(Intersect(ACRow, tblColumns("Phone").Range), "0000 000 000") & vbCrLf & "Name on Card " & _
            Intersect(ACRow, tblColumns("Name on Card").Range)
            Exit Sub
        End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table named after first cell	bheemskerk	Word VBA	14	05-15-2019 07:43 PM
Code to find a named (bookmarked?) table, replicate a row or table, and delete a specified table.	kevinbradley57	Word VBA	9	09-21-2017 04:58 PM
Replace a named table with text	kevinbradley57	Word VBA	2	08-31-2017 07:49 AM
Is it possible to put a formula in a table column header to define the name of the column?	JacquesW	Excel	3	05-08-2017 08:00 AM
Need a Macro to go to column named price and ADD 16% to each field	okief1122	Excel Programming	4	09-06-2014 10:59 PM