I responded to the other identical question posted at 21:24 - check that one
out.

--

HTH

Bob Phillips

"pingger" wrote in message
...
I am trying to run the following macro and it dies when
it reaches "Range("A(i):C(j)").Select". What am I doing
wrong? Please help.

TIA

Pingger


Dim i As Integer, j As Integer, k As Integer
i = i + 1
j = j + 1
k = k + 1
j = j + 21

Do While j < 1100
Range("A(i):C(j)").Select
Selection.Copy
Range("F(k)").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
i = j + 1
j = i + 21
k = k + 3
Loop