Excel VBA-select named column based on variable of a cell's value

[jrico]

Hello everyone. Happy Holidays! I promise that I've spent hours searching for a solution to my Excel vba/macro issue. I've also attempted using information found in this forum and other excel vba forums to string together a viable script, but to no avail.

Objective: to select a named column from a range of columns based on a cell's value and to hide remaining columns from the range of columns.
Facts:
1. A worksheet consists of 51 columns.
2. Column A consists of a listing of factoids/characteristics.
3. Columns B through AY is a named range = "State"
4. 'Name Box' was used to assign a state to a column. For example, Column B is named Alabama, Column C is named Alaska, and so on).
2. Cell reference A1 is where a user is to enter the name of a state, such as Alaska, Maine, Texas, etc., to view applicable factoids/characteristics
3. When running the macro, column A will always remain unhidden, the column corresponding to the state referenced in cell A1 will remain unhidden but the remaining columns defined by range "State" will be hidden

I hope I have entered enough information to solicit a response. Your help is appreciated. Thank you.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub jrico()
   Dim Fnd As Range
   
   Range("State").EntireColumn.Hidden = True
   Set Fnd = Range("State").Find(Range("A1"), , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then Fnd.EntireColumn.Hidden = False
End Sub

 

[jrico]

Hi & welcome to MrExcel.
How about

Sub jrico()
   Dim Fnd As Range
  
   Range("State").EntireColumn.Hidden = True
   Set Fnd = Range("State").Find(Range("A1"), , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then Fnd.EntireColumn.Hidden = False
End Sub

Fluff,
You are my hero today. If you don't mind, would you please briefly explain the commas in row beginning with Set Fnd=Range...... Thank you.

 

[Fluff]

The commas are a short form way of writing the Find function without the need to specify the name of each argument.
You can see what the arguments are here Range.Find method (Excel)