VBA Not Running Upon Open.

[bloodmilksky]

Hi Guys,

Trying to get the below code running on a new workbook. worked perfectly fine on other one, have entered it in to new workbook and when I open it the code doesnt run. Can anyone help please?

Private Sub Workbook_open()


Msg = "Would You Like To Book Holidy ? " & Application.UserName
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End If
If Ans = vbYes Then Range("EMPLOYEE2") = Application.UserName




End Sub

 

[OriginalCarey]

Simple as it may sound, but have you Saved as a Macro Enabled Workbook and then opened it, Enabled macros, and then saved once more then re opened?

 

[Joe4]

Also, confirm that you posted it in the "ThisWorkbook" module?

 

[OriginalCarey]

Also, confirm that you posted it in the "ThisWorkbook" module?

Yes, this must be posted within the "ThisWorkbook" and not within a specific sheet, or "seperate" module.

Cheers.

 

[bloodmilksky]

Got it to work thank you guys ^_^