Sub Hideit()
Dim rng As Range
For Each rng In Range("D3", Range("IV3").End(xlToLeft))
rng.EntireColumn.Hidden = (rng = False)
Next rng
End Sub
'The following will undo what you have just done.
Sub Unhide()
Range("D3", Range("IV3").End(xlToLeft)).EntireColumn.Hidden = False
End Sub