Help With Macro Insert Pictures

[redd]

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

 

[Norie]

What exactly do you mean?

Is 'Boats' a subfolder of 'My Pictures'?

 

[redd]

Yes