Encountering a run-time error 424

[Ruky]

Hi I am experimenting with transferring sheet 2 row values into sheet 1 row cells.

The code is as follows:
------------------------------------------------
Sub populate()
Dim mycell As Range

For Each mycell In Range("a1:a20")
mycell.Select
If mycell = 3 Then
mycell.EntireRow.Font.ColorIndex = 3
End If

Next mycell

Range("a1").Select

For Each mycell In Range("a1:a20")
mycell.Select
If mycell.EntireRow.Font.ColorIndex = 3 Then
ActiveWorkbook.Sheets(2).Activate
ActiveWorkbook.Sheets(2).Range("a2:c2").Select
Selection.Copy
Workbooks(1).Sheets(1).Activate
mycell.Offset(0, 1).PasteSpecial.Values
End If
Next mycell
End Sub

I get the error in the final loop's mycell.offset(0,1).pastespecialy values
I want to move on to the next cell in the loop.
What am I doing wrong?

Thanks

 

[GTO]

Maybe:
<font face=Courier New>mycell.Offset(0, 1).PasteSpecial xlPasteValues</FONT>

 

[Ruky]

Tried it as .PasteSpecial (xlPasteValues)

and it worked great.


Thanks!!

 

[GTO]

Glad to help