Help!!! Code problem 1004

  • Thread starter Thread starter pingger
  • Start date Start date
P

pingger

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
 
Try

Range("A" & i & ":C" & j).Select
makes a string A1:C21
You'll probably also neet to change
Range("F" & k).Select

Dan E
 
Back
Top