private sub macros for hiding/unhiding columns

[chobanne]

can someone plese help me to make this two codes

first is for active control X checkbox

i have checkbox in column A. When the box is checked i want columns B,C,D to be unhide and if box is uncheked i want columns B,C,D to be hiden.

second code is for active sheet. In case the column A is hidden for some reason also he previously mentioned checkbox must also be hidden.

Thank you

 

[Flaiban]

Try this code :

Private Sub CheckBox1_Click()

    If Me.CheckBox1.Value = True Then
        Sheets(1).Columns("B:D").Hidden = True
    ElseIf Me.CheckBox1.Value = False Then
        Sheets(1).Columns("B:D").Hidden = False
    End If

End Sub

Selection_Change Event for your worksheet :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Columns("A").Hidden = True Then
        ActiveSheet.CheckBox1.Visible = False
    Else
        ActiveSheet.CheckBox1.Visible = True
    End If
End Sub