Condition Hidden Columns

[smitpau]

Hi,

I'd like columns to be hidden based on the value in a certain row, basically if the value in say row 2 equals "N/A" the column should be hidden. It sounds relatively simple but would prefer a range type VBA code instead of having to type out each column one by one.

Thanks for reading.

Paul

 

[smitpau]

In that case you can turn of calculation like

Sub smitpau()
   Dim Cl As Range
  
   Application.Calculation = xlCalculationManual
   For Each Cl In Range("A2", Cells(2, Columns.Count).End(xlToLeft))
      Cl.EntireColumn.Hidden = Cl.Value = "N/A"
   Next Cl
   Application.Calculation = xlCalculationAutomatic
End Sub

Are the values in row the result of a formula, or manually changed?

Yes they are the result of a formula

 

[Fluff]

In that case it's probably best to use the code I've supplied, rather than ans event code.

 

[smitpau]

In that case it's probably best to use the code I've supplied, rather than ans event code.

Okay thanks Fluff

 

[Fluff]

Glad we could help & thanks for the feedback.