Hello
I need some help tp update the below macro. I need it to ask if the PA Files need to be updated, if Yes then call the macro, if No then nothing happens.
Private Sub Workbook_Open()
Call Update_PA_File()
Dim a As VbMsgBoxResult, b As String
a = MsgBox("Is it time to update the spreadsheet?", vbYesNo + vbQuestion)
If a = vbNo Then Exit Sub
b = InputBox("Enter the new date - 20th Cash Cut-Off")
Sheets("Input").Range("B6").Value = DateValue(b)
ActiveWorkbook.Protect Password:="", Structure:=True, Windows:=False
End Sub
Thank you
I need some help tp update the below macro. I need it to ask if the PA Files need to be updated, if Yes then call the macro, if No then nothing happens.
Private Sub Workbook_Open()
Call Update_PA_File()
Dim a As VbMsgBoxResult, b As String
a = MsgBox("Is it time to update the spreadsheet?", vbYesNo + vbQuestion)
If a = vbNo Then Exit Sub
b = InputBox("Enter the new date - 20th Cash Cut-Off")
Sheets("Input").Range("B6").Value = DateValue(b)
ActiveWorkbook.Protect Password:="", Structure:=True, Windows:=False
End Sub
Thank you