Sub testColumns()
ShowColumns True
MsgBox "not hidden"
ShowColumns False
MsgBox "columns visual hidden"
ShowColumns True
End Sub
Sub ShowColumns(b As Boolean)
Columns("H:I").ColumnWidth = IIf(b, 10, 0.1) 'swap between columnwidth 10 and .1
End Sub