Attribute VB_Name = "Module6"
Private Sub ToggleButton_Click()
Dim xAddress As String
xAddress = "G"
Sheets("D1am").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("D1am").Columns(xAddress).Hidden = True
Else
    Application.Sheets("D1am").Columns(xAddress).Hidden = False
End If
Sheets("D1am").Protect AllowFormattingCells:=True

Sheets("D1pm").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("D1pm").Columns(xAddress).Hidden = True
Else
    Application.Sheets("D1pm").Columns(xAddress).Hidden = False
End If
Sheets("D1pm").Protect

Sheets("D2am").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("D2am").Columns(xAddress).Hidden = True
Else
    Application.Sheets("D2am").Columns(xAddress).Hidden = False
End If
Sheets("D2am").Protect

Sheets("D2pm").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("D2pm").Columns(xAddress).Hidden = True
Else
    Application.Sheets("D2pm").Columns(xAddress).Hidden = False
End If
Sheets("D2pm").Protect

Sheets("FP1").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("FP1").Columns(xAddress).Hidden = True
Else
    Application.Sheets("FP1").Columns(xAddress).Hidden = False
End If
Sheets("FP1").Protect

Sheets("FP2").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("FP2").Columns(xAddress).Hidden = True
Else
    Application.Sheets("FP2").Columns(xAddress).Hidden = False
End If
Sheets("FP2").Protect

Sheets("Q").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("Q").Columns(xAddress).Hidden = True
Else
    Application.Sheets("Q").Columns(xAddress).Hidden = False
End If
Sheets("Q").Protect

Sheets("R1").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("R1").Columns("F").Hidden = True
Else
    Application.Sheets("R1").Columns("F").Hidden = False
End If
Sheets("R1").Protect

Sheets("R2").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("R2").Columns("F").Hidden = True
Else
    Application.Sheets("R2").Columns("F").Hidden = False
End If
Sheets("R2").Protect

Sheets("R3").Unprotect
If ToggleButton1.Value Then
    Application.Sheets("R3").Columns("F").Hidden = True
Else
    Application.Sheets("R3").Columns("F").Hidden = False
End If
Sheets("R3").Protect
End Sub