PasteSpecial and Offset

[Giselle]

greetings

Here is some code from XL help.

With Worksheets("Sheet1")
.Range("C1:C5").Copy
.Range("D15").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With

My code is similar, but I want the PasteSpecial to be offset by 7*CatNum
columns to the right. CatNum is defined earlier in my code as Integer. If
CatNum = 0, then the code should run as shown. If CatNum = 3, then the
PasteSpecial should be offset by 21 columns.

I'm having trouble with the offset syntax.

Much thanks
Giselle

 

[Guest]

Dim rng as Range
With Worksheets("Sheet1")
set rng = .Range("C1:C5")
rng.Copy
rng.offset(0,catnum*7).Pastespecial _
Operation:=xlPasteSpecialOperationAdd
End With