Macro with manual file selection?

I would like to create a macro that will insert a manually selected image from specific directory using Excell 2002. In other words I would like to be able to execute a macro that will take me to a predetermined directory and will pause for manual selection of an image file. Using the "Record New Macro" function It is easy to set up a macro that will insert the same image over and over again.

ActiveSheet.Pictures.Insert("\\Fileserver\otprints\ADV03(LFM-0900,C).jpg"). _
Select
End Sub

I'm sure what I am trying to do is more complicated then the simple macro above.

Can anyone help me out with this?

Thank You,

Paul

This code should give you what you want.

Sub InsertSelectedPicture()
    Dim selFile As String
    Dim myDir As String
    myDir = "\\Fileserver\otprints"
    ChDir (myDir)
    selFile = Application.GetOpenFilename("JPG Files (*.jpg),*.jpg,All Files (*.*),*.*")
    ActiveSheet.Pictures.Insert (selFile)
End Sub

See VBA help to see the different options for the file filter types that can be used.

bhofsetz,

Thanks. You made that look easy. I had no problems using your code.

Paul