I need help Quick[RESOLVED]

[krs_si]

I want to be able to click a button and prompt an Open file Dialog box and then I want to copy the file (.jpg, .gif, .bmp) selected and paste it on the excel sheet in (A1). I'm using excel 2000.

[Siddharth Rout]

Does this help?

Private Sub CommandButton1_Click()
 
Dim sFilename As String
 
sFilename = Application.GetOpenFilename("All files (*.*), *.*")
 
' To Exit if Cancel was pressed
If sFilename = "False" Then Exit Sub
 
ActiveSheet.Pictures.Insert(sFilename).Select
 
End Sub

[krs_si]

Yes, thanks!!!