Creating a Pop up

[mrbeanyuk]

I have used the following coding to create a msg box:

Private Sub Workbook_Onload()
Dim result As VbMsgBoxResult
result = MsgBox("Do not Amend", vbOKOnly, "Warning")
End Sub




Why does this not work when I open the document!

Thanks

 

[BBHRVS]

Hi Mr Bean,

I do not know the onload event...

Private Sub Workbook_Open()
Msgbox "Do not amend", , "Warning"
End Sub

Should be ok. Of course located into the Workbook.module...

 

[BrianB]

Do not understand much of your code.

If you use Project Explorer in VB Editor and doubleclick on ThisWorkbook you get the proper code module for this task. Have a look at the dropdowns at the top for the various event trapping possibilities.

Copy/paste this code there :-

Private Sub Workbook_Open()
    Dim Result As String ' not really needed here as it is not used elsewhere
    Result = MsgBox("Do not Amend", vbOKOnly, "Warning")
End Sub

 

[mrbeanyuk]

This is still not working for some bizarre reason. The coding is correct but will not open when I open the document.

I hope I am correct in saying that the coding should be put in the Module One bit or the 1st Sheet to make it work!?

 

[BBHRVS]

No, the code should be into the workbook module.
Please go to VBA (by clicking the menu tool/macros/visual basic editor) in Excel.
Then click on menu : view/project explorer
Then open the project of your workbook and double click on "Thisworkbook"
You are in the workbook module. Paste the code we provided.

 

[mrbeanyuk]

YEY!!!!! Thank you soooo much!!!