Sub Hide_Columns()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.UsedRange.Columns.Count
Select Case LCase(Cells(1, i).Value)
Case "name", "1st phone number", "2nd phone", "country", "conditions", _
"email address", "enrollment status", "room not available", "roommate", _
"mailing address", "payment record", "payment status", "gender", _
"requested room type", "total payments to date", "what is your meal preference?"
Columns(i).Hidden = False
Case Else: Columns(i).Hidden = True
End Select
Next i
Application.ScreenUpdating = True
End Sub
Bookmarks