Excel VBA

#This is in my Sheet1(Night Report) in VBA window:

Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
Dim wb As Workbook
Set wb = ActiveWorkbook
    wb.Worksheet("Night Report").Range("J1") = Now()
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
Dim wb As Workbook
Set wb = ActiveWorkbook

'LOB1
If Range("J43").Value = 1 Then
ActiveSheet.Checkboxes("LOB1").Value = xlOn
Else
ActiveSheet.Checkboxes("LOB1").Value = xlOff
End If
'LOB2
If Range("J44").Value = 1 Then
ActiveSheet.Checkboxes("LOB2").Value = xlOn
Else
ActiveSheet.Checkboxes("LOB2").Value = xlOff
End If
'LOB3
If Range("J45").Value = 1 Then
ActiveSheet.Checkboxes("LOB3").Value = xlOn
Else
ActiveSheet.Checkboxes("LOB3").Value = xlOff
End If
'LB1
If Range("J46").Value = 1 Then
ActiveSheet.Checkboxes("LB1").Value = xlOn
Else
ActiveSheet.Checkboxes("LB1").Value = xlOff
End If
'LB2
If Range("J47").Value = 1 Then
ActiveSheet.Checkboxes("LB2").Value = xlOn
Else
ActiveSheet.Checkboxes("LB2").Value = xlOff
End If
'LB3
If Range("J48").Value = 1 Then
ActiveSheet.Checkboxes("LB3").Value = xlOn
Else
ActiveSheet.Checkboxes("LB3").Value = xlOff
End If
'------------------------------------------
'Vid1
If Range("L43").Value = 1 Then
ActiveSheet.Checkboxes("Vid1").Value = xlOn
Else
ActiveSheet.Checkboxes("Vid1").Value = xlOff
End If
'Vid2
If Range("L44").Value = 1 Then
ActiveSheet.Checkboxes("Vid2").Value = xlOn
Else
ActiveSheet.Checkboxes("Vid2").Value = xlOff
End If
'Bak2
If Range("L45").Value = 1 Then
ActiveSheet.Checkboxes("Bak2").Value = xlOn
Else
ActiveSheet.Checkboxes("Bak2").Value = xlOff
End If
'BCudaN
If Range("L46").Value = 1 Then
ActiveSheet.Checkboxes("BCudaN").Value = xlOn
Else
ActiveSheet.Checkboxes("BCudaN").Value = xlOff
End If
'BadS
If Range("L47").Value = 1 Then
ActiveSheet.Checkboxes("BadS").Value = xlOn
Else
ActiveSheet.Checkboxes("BadS").Value = xlOff
End If
'BadC
If Range("L48").Value = 1 Then
ActiveSheet.Checkboxes("BadC").Value = xlOn
Else
ActiveSheet.Checkboxes("BadC").Value = xlOff
End If
'NetMon
If Range("L49").Value = 1 Then
ActiveSheet.Checkboxes("NetMon").Value = xlOn
Else
ActiveSheet.Checkboxes("NetMon").Value = xlOff
End If
'Cams
If Range("L50").Value = 1 Then
ActiveSheet.Checkboxes("Cams").Value = xlOn
Else
ActiveSheet.Checkboxes("Cams").Value = xlOff
End If
'FDrive
If Range("L51").Value = 1 Then
ActiveSheet.Checkboxes("FDrive").Value = xlOn
Else
ActiveSheet.Checkboxes("FDrive").Value = xlOff
End If
'DA
If Range("L52").Value = 1 Then
ActiveSheet.Checkboxes("DA").Value = xlOn
Else
ActiveSheet.Checkboxes("DA").Value = xlOff
End If
'Outlook
If Range("L53").Value = 1 Then
ActiveSheet.Checkboxes("Outlook").Value = xlOn
Else
ActiveSheet.Checkboxes("Outlook").Value = xlOff
End If
'WebAcc
If Range("L54").Value = 1 Then
ActiveSheet.Checkboxes("WebAcc").Value = xlOn
Else
ActiveSheet.Checkboxes("WebAcc").Value = xlOff
End If
'MOut
If Range("L55").Value = 1 Then
ActiveSheet.Checkboxes("MOut").Value = xlOn
Else
ActiveSheet.Checkboxes("MOut").Value = xlOff
End If
'MIn
If Range("L56").Value = 1 Then
ActiveSheet.Checkboxes("MIn").Value = xlOn
Else
ActiveSheet.Checkboxes("MIn").Value = xlOff
End If
'Fax
If Range("L57").Value = 1 Then
ActiveSheet.Checkboxes("Fax").Value = xlOn
Else
ActiveSheet.Checkboxes("Fax").Value = xlOff
End If
'LDOut
If Range("L58").Value = 1 Then
ActiveSheet.Checkboxes("LDOut").Value = xlOn
Else
ActiveSheet.Checkboxes("LDOut").Value = xlOff
End If
'LDIn
If Range("L59").Value = 1 Then
ActiveSheet.Checkboxes("LDIn").Value = xlOn
Else
ActiveSheet.Checkboxes("LDIn").Value = xlOff
End If
'VProt
If Range("L60").Value = 1 Then
ActiveSheet.Checkboxes("VProt").Value = xlOn
Else
ActiveSheet.Checkboxes("VProt").Value = xlOff
End If
'LOB400
If Range("L61").Value = 1 Then
ActiveSheet.Checkboxes("LOB400").Value = xlOn
Else
ActiveSheet.Checkboxes("LOB400").Value = xlOff
End If
'VCheck
If Range("L62").Value = 1 Then
ActiveSheet.Checkboxes("VCheck").Value = xlOn
Else
ActiveSheet.Checkboxes("VCheck").Value = xlOff
End If
'LBUPS
If Range("L63").Value = 1 Then
ActiveSheet.Checkboxes("LBUPS").Value = xlOn
Else
ActiveSheet.Checkboxes("LBUPS").Value = xlOff
End If
'LOBUPS
If Range("L64").Value = 1 Then
ActiveSheet.Checkboxes("LOBUPS").Value = xlOn
Else
ActiveSheet.Checkboxes("LOBUPS").Value = xlOff
End If
'vCen
If Range("L65").Value = 1 Then
ActiveSheet.Checkboxes("vCen").Value = xlOn
Else
ActiveSheet.Checkboxes("vCen").Value = xlOff
End If
'vROM
If Range("L66").Value = 1 Then
ActiveSheet.Checkboxes("vROM").Value = xlOn
Else
ActiveSheet.Checkboxes("vROM").Value = xlOff
End If
'Term
If Range("L67").Value = 1 Then
ActiveSheet.Checkboxes("Term").Value = xlOn
Else
ActiveSheet.Checkboxes("Term").Value = xlOff
End If
'VPN
If Range("L68").Value = 1 Then
ActiveSheet.Checkboxes("VPN").Value = xlOn
Else
ActiveSheet.Checkboxes("VPN").Value = xlOff
End If
End Sub

Sub Hide()
Dim wb As Workbook
Set wb = ActiveWorkbook
    wb.ActiveSheet.Range("G:L").EntireColumn.Hidden = True
End Sub

Sub Show()
Dim wb As Workbook
Set wb = ActiveWorkbook
    wb.ActiveSheet.Range("G:L").EntireColumn.Hidden = False
End Sub


=============================

This is in ThisWorkBook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wb As Workbook
Set wb = ActiveWorkbook
If wb.Worksheets("Night Report").Columns("G").Hidden = False Then
MsgBox "Run Hide Macro and save before closing file."
End If
End Sub