Iwas able to make the macro go find picture files in my picture folder. Now I
need to figure out a code that would allow me to copy and paste chosen
pictures either 1 at a time or multiple at a time and put them on my
workshhet.
Tanks for all your help. I'll send in another question if I can't figure it
out.

"Joel" wrote:


fileToOpen = Application _
.GetOpenFilename("All Files (*.jpg),*.jpg")

"gwbdirect" wrote:

Hi Joel,
Thanks for the code.
I want to chenge to photo extensions so how do i write it
.GetOpenFilename (*.jpeg), *.jpeg")
This doesn't work so can you write it properly.
Thanks again


"Joel" wrote:

Use the GetOpenFileName which Displays the standard Open dialog box and gets
a file name from the user without actually opening any files. Change .txt to
the picture extension you are using such as .jpg


fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen < False Then
MsgBox "Open " & fileToOpen
End If


"gwbdirect" wrote:

Want to crteate a macro that goes to exploerer and allows me to choose any
photo by clicking on it. Not a specific photo but different ones each time I
run the macro.
Thanks