Auto Resize Pasted Picture to merged cell

Hi... To ALL...

I get one macro that insert picture from disk to selected cell, then auto resize that picture to merged cell size.

But, now i intend to use that same code to PASTE a picture (from System Clipboard) then resize to merged cell size

PASTING to selected merged cell, it works fine...
But.. The resize,... Not that fine.

Here is the code i intend to use;

Private Sub CommandButton1_Click()
Dim p As Picture
 Application.ScreenUpdating = False
 
 Set p = ActiveSheet.Pictures.Paste

If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
 With Target
 p.Top = .Top
 p.Left = .Left
 p.Width = .Width
  End With

End Sub

I get ERROr in this line;

If Target.Cells.Count = 1 Then ...

Can someone help me in this...

THANKs

Originally Posted by mrice

Replace Target with Selection as you don't appear to have specified what range Target is?

Yes, you are right, there is another part of the code, like this;

Private Sub CommandButton3_Click()

 Dim myPicture As String, MyRange As Range
 myPicture = Application.GetOpenFilename _
 ("Pictures (.bmp; .gif; .jpg; .png; .tif),.bmp; .gif; .jpg; .png; .tif", _
 , "Select Picture to Import")

 Set MyRange = Selection
 InsertAndSizePic MyRange, myPicture
End Sub


Sub InsertAndSizePic(Target As Range, PicPath As String)

 Dim p As Picture
 Application.ScreenUpdating = False
 
 Set p = ActiveSheet.Pictures.Insert(PicPath)

 If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
 With Target
 p.Left = .Left
 p.Width = .Width
  End With

End Sub

BUT, after some more research, i have come up with this;

Sub InsertAndSizePic(Target As Range, PicPath As String)
Dim p As Picture 
With Selection 
    Set p = .Parent.Pictures.Paste 
    p.Top = .Top 
    p.Left = .Left 
    p.Width = .Width 
End With
End Sub

Thanks your tip led me to investigate...