Private Sub CommandButton1_Click()
If Columns("A").Hidden = False Then
Columns("A").Hidden = True
Else
Columns("A").Hidden = False
End If
End Sub
If Columns("A").Hidden = False Then
Columns("A").Hidden = True
Else
Columns("A").Hidden = False
End If
End Sub