how can i get a pic files brought up in vba

[pete393]

i would like to get a picture files open coresponding to info the user puts in a msgbox..

oxolist:
Name = InputBox("enter movie name")
If Name = Cancel Then
noanwser = MsgBox(" YOU DID NOT ENTER A MOVIE NAME DO YOU WISH TO EXIT THE PROGRAM", vbRetryCancel)
If noanwser = vbRetry Then GoTo pbdlist
If noanwser = vbCancel Then GoTo aend
End If

picture coresponding to the name

the function would be here is it could be in somme kind of msgbox i would
be great

 

[tactps]

You could change it to something like:

oxolist:
Name = InputBox("enter movie name")
If Name = Cancel Then
noanwser = MsgBox(" YOU DID NOT ENTER A MOVIE NAME DO YOU WISH TO EXIT THE PROGRAM", vbRetryCancel)
If noanwser = vbRetry Then GoTo pbdlist
If noanwser = vbCancel Then GoTo aend
Else
ChDir "C:\"
ActiveSheet.OLEObjects.Add(Filename:="C:\" & Name & ".wmv", Link:= _
True, DisplayAsIcon:=False).Select
Selection.Verb

End If
End Sub