Update Event Macro

[Mldeuser]

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

 

[RoryA]

Just repeat this section:

a = MsgBox("Is it time to update the spreadsheet?", vbYesNo + vbQuestion)

If a = vbNo Then Exit Sub

changing the message.

 

[Mldeuser]

Hello

Thank you for your help, it worked.