the following is the code i got at the moment.

how do i (if possible) add a .jpg?

c:/pswanie/pic.jpg

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do u want to print the inventory?" ' Define message.
Style = vbOKCancel ' Define buttons.
Title = "pswanie t/a janphi" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbOKCancel Then ' User chose Yes.

Application.Run "INVENTRY.xls!newdayclear.newdayclear"

Else ' User chose No.


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.MoveAfterReturnDirection = xlDown
Sheets("data").Select
Range("A111").Select


End If