you could add row and then put a 0 or a 1 in the cell and depending on whether it is a 0 or 1 will determine whether it should be hidden or not.

eg.

Sub test()
For Each cell In Range("1:1")
If cell.Value = 1 Then
cell.EntireColumn.Hidden = True
Else
cell.EntireColumn.Hidden = False
End If
Next cell
End Sub