sorry earlier post was without fully understanding what you want to do.

Below is correct complete code.


Dim sName As String
For i = 1 To 12
sName = "Sheet" & i
Worksheets(sName).Range("C15:C60").Copy
Worksheets("Sheet13").Range("C" & 3 + i).PasteSpecial _
Paste:=xlPasteAll, Transpose:=True
Next i

Sharad

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!