400 error, picture insert, resize

I'm trying to write a macro to insert a picture into a selected range and resize and center it while keeping the aspect ratio. it doesn't seem to work and i can't figure out why. it would insert the picture and size it to about a 1/4 of the range and leave it in the top left. I disable the error trap and it's giving me a 400 error with no debugging options. can anyone see what i'm doing wrong in my macro?. any help would be greatly appreciated.

Chris

Sub PictureInsert()
    Dim pic As Picture
    Dim sPic As String
    Dim rPos As Range
    Dim ws As Worksheet
    Dim shp As Shape
    
    Dim rH As Double, rW As Double
    Dim fH As Double, fW As Double
    Dim fH2 As Double, fW2 As Double
    Dim fMod As Double
           
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rPos = ws.Range(Selection.Address)
    rH = rPos.Height: rW = rPos.Width
   
   
 '       For Each Shp In ws.Shapes
 '   Debug.Print Shp.Type
 '           If Shp.Type = msoPicture Then
 '               Shp.Delete
 '           End If
 '       Next Shp
    
    'On Error GoTo ErrorTrap
        sPic = Application.Dialogs(xlDialogInsertPicture).Show
        If TypeName(Selection) <> "Picture" Then Exit Sub
        
    Application.ScreenUpdating = False
            
    Set pic = ws.Pictures.Insert(sPic)
        pic.ShapeRange.LockAspectRatio = msoFalse
    
    fH = Selection.Height / rH
    fW = Selection.Width / rW
    fMod = IIf(fH > fW, fH, fW)
        
    With Selection
        .Left = rPos.Left
        .Top = rPos.Top
         fH2 = .Height
         fW2 = .Width
        .Width = fW2 / fMod - 10
        .Height = fH2 / fMod - 10
    End With
    
    With Selection
         rPos.Left = .Left + ((.Width - rPos.Width) / 2)
         rPos.Top = .Top + ((.Height - rPos.Height) / 2)
    End With
        
'ErrorTrap:
 '       On Error GoTo 0
        Application.ScreenUpdating = True
        
End Sub