error 438

[jaianth2011jan]

Dear all,

In the Macro code given below,

Public Sub sortet()
Dim a As Integer

Range("U6:U12").Select
Selection.Copy
Range("U13").Select
Selection.Paste
<label for="rb_iconid_4">

</label>

End Sub

in the above sub-procedure
the selection.paste showing error no 438
with a message "object doesn't support this property or method"

Please let me know what the problem is? as soon as possible.

Regards,

Jayanth.M

 

[njimack]

Range("U6:U12").Copy Range("A13")

 

[Richard Schollar]

Hi

Paste is a method of the Worksheet, not the Range so you need this:

Public Sub sortet()
Dim a As Integer

Range("U6:U12").Select
Selection.Copy
Range("U13").Select
Activesheet.Paste


End Sub

 

[JackDanIce]

Try:

Public Sub sortet()
Dim a As Integer

Range("U6:U12").Copy Range("U13")
End Sub