How to select a range based on what's in the row header?

  • Thread starter Thread starter Rachel Garrett
  • Start date Start date
R

Rachel Garrett

I would like my macro to look for the word "Date" and then create a
range called "Date_Column", rather than hard-coding it that Date will
always be column B, column D, etc. Any suggestions or pointers to
tutorials?

Thanks,
Rachel
 
Sub date_finder()
For Each r In ActiveSheet.UsedRange
If r.Value = "Date" Then
Set Date_Column = Columns(r.Column)
Exit For
End If
Next
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help needed to writing a macro to put the year in column B of a tableusing Table nomenclature & the 7
Paste in column B using Last row of either column B, C or D. 10
select range in column, calculate on range plus 3 columns, output inrange plus 7 columns 8
select and move columns by their name in header row 2
Post my named ranges in column A 10
VBA CreateNames (ignores last 5 rows?) 6
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Find string from column A in Range("B2:F7") list the header of that column/s 5

Back
Top