Columns(1).Hidden = True ' Into a range: Dim myRange As Range Set myRange = Application.Range("A1") myRange.EntireColumn.Hidden = True