Macro to hide columns by Header Names

[zalik22]

Hi,

I am looking to hide columns by header names. The columns I would like to hide are "name", "date" and "age".

Thanks!

 

[zalik22]

Columns(Col).Select

Run Time Error 91 Object Variable or With Block variable not set

 

[Fluff]

Do you actually have a column called UserID in row 1?

 

[zalik22]

Yeah I do.

 

[zalik22]

Odd, it worked. Not sure what changed. Thanks for the help!

 

[Fluff]

Glad to help & thanks for the feedback

 

[mrmk81]

Glad to help & thanks for the feedback

Hi - I'm trying to run the following based on your initial suggestions but nothing seems to be happening?

Sub Hide_Me()
'"TR Trial Num", "TR Finance MU Cde", "TR Managing MU Cde", "TR Updating MU Cde", "TR Other Dsn Factors Multiple", "TR Objectives Multiple", "TR PA Fct", "TR FPV Fct", and "TR FPETrt Act"
Dim Lastcolumn As Long
Lastcolumn = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To Lastcolumn
If Cells(1, i).Value = "TR Trial Num" Or Cells(1, i).Value = "TR Finance MU Cde" Or Cells(1, i).Value = "TR Managing MU Cde" Or Cells(1, i).Value = "TR Updating MU Cde" Or Cells(1, i).Value = "TR Other Dsn Factors Multiple" Or Cells(1, i).Value = "TR Objectives Multiple" Or Cells(1, i).Value = "TR PA Fct" Or Cells(1, i).Value = "TR FPV Act" Or Cells(1, i).Value = "TR FPETrt Act" Then Columns(i).Hidden = True
Next
End Sub

 

[Fluff]

Do any of those values exist in row 1 of the active sheet?

 

[mrmk81]

Do any of those values exist in row 1 of the active sheet?

They didn't but they do now and it seems to work! Thank you!!

Also, do you know how I can move columns? e.g. I need column J to become column C?

 

[Fluff]

That's a different question, so you will need to start a new thread.
Thanks