Adapt code VBA to hide columns instead of rows

[LordVoldetort_IV]

Sub Hide_Rows()

With Worksheets("Tax Calculation")


'BeginRow = from which row you want to start checking

'EndRow = to which row you want to check

'ChkCol = in which collom is the value to check



BeginRow = 1

EndRow = 160

ChkCol = 19



For RowCnt = BeginRow To EndRow

If Worksheets("Tax Calculation").Cells(RowCnt, ChkCol).Value = "HIDE" Then

Worksheets("Tax Calculation").Cells(RowCnt, ChkCol).EntireRow.Hidden = True

Else: Worksheets("Tax Calculation").Cells(RowCnt, ChkCol).EntireRow.Hidden = False

End If

Next RowCnt

End With

 End Sub

Hello! the above code is what i use to hide a row based on a value in the same row, but different column. I want to switch it around and hide a column based on a value in the same column, different row. i cant seem to figure it out, would appreciate any help!

 

[Fluff]

Which column(s) & row(s)?

 

[LordVoldetort_IV]

Which column(s) & row(s)?

I would like to hide columns A:H only if the value A100:H100 is "HIDE" . so basically, if B100 = "HIDE" then hide column B, but C100 = "SHOW" then column C should not be hidden

 

[Fluff]

Ok, how about

Sub LordVoldetort()
   Dim Cl As Range
   
   For Each Cl In Range("A100:H100")
      Cl.EntireColumn.Hidden = Cl.Value = "HIDE"
   Next Cl
End Sub

 

[LordVoldetort_IV]

Ok, how about

Sub LordVoldetort()
   Dim Cl As Range
  
   For Each Cl In Range("A100:H100")
      Cl.EntireColumn.Hidden = Cl.Value = "HIDE"
   Next Cl
End Sub

Works great, thank you!

 

[LordVoldetort_IV]

Ok, how about

Sub LordVoldetort()
   Dim Cl As Range
  
   For Each Cl In Range("A100:H100")
      Cl.EntireColumn.Hidden = Cl.Value = "HIDE"
   Next Cl
End Sub

If i want to do the reverse, (to unhide those same columns), how would i go about that?

 

[Fluff]

Like

   Range("A:H").EntireColumn.Hidden = False

 

[LordVoldetort_IV]

Like

   Range("A:H").EntireColumn.Hidden = False

thanks! im still very new to VBA, im trying to figure it out by trial and error

 

[Fluff]

You're welcome.