Sub PutPicInCell()
'
Dim MyCell As Range
Dim vFile As Variant
Set MyCell = ActiveCell
vFile = Application.GetOpenFilename("All Files (*.*),*.*")
If vFile = "False" Then Exit Sub
ActiveSheet.Pictures.Insert(vFile).Select
Selection.Top = MyCell.Top
Selection.Left = MyCell.Left
Selection.Width = MyCell.Width
Selection.Height = MyCell.Height
End Sub
I would like to open up folder"My Pictures",sub folder "Boats"instead of "All Files
'
Dim MyCell As Range
Dim vFile As Variant
Set MyCell = ActiveCell
vFile = Application.GetOpenFilename("All Files (*.*),*.*")
If vFile = "False" Then Exit Sub
ActiveSheet.Pictures.Insert(vFile).Select
Selection.Top = MyCell.Top
Selection.Left = MyCell.Left
Selection.Width = MyCell.Width
Selection.Height = MyCell.Height
End Sub
I would like to open up folder"My Pictures",sub folder "Boats"instead of "All Files