VBA Code/Macro for Sizing A Picture to a Range of Cells(reply to old thread)

[thecdnmole]

Rules are rules. I found an old thread with code that works 99%! One question, when the window pops up to select a picture from folders and you decide to cancel, the macro throws up and error at "ActiveSheet.Pictures.Insert(Picture1).Select". I am drawing a blank tonight as to how to prevent that from happening. Need an out, if you could help or someone out there? Thanks!

Here is the link to the old thread as per rules. http://www.excelforum.com/excel-prog...-of-cells.html

[MickG]

Change Variable "Picture1" to Variant Type, and add line below, And an "End if" at bottom of code

Please Login or Register  to view this content.

[thecdnmole]

Thanks MickG!! Works 100% now, awesome!

[thecdnmole]

Now I have a new problem related to the original code. The "Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")" line worked great until I went and added another format, "Picture,*.png"! Now when the window opens, all I see in the Picture drop box in lower right corner is "Picture" repeated four times, instead of .jpg, .jpeg, .GIF, .BMP. No matter what I do now, it just shows Picture. Is there something I need to clear out of memory or what, how do I fix this? Thanks again to anyone that can help.