Works fine for me (XL2k). Would suggest either a Debug.Print or MsgBox
statement for each variable before this line to verify that each variable
does indeed have the expected value.

Ed

"SHIPP" wrote in message
...
Does anyone know why this gives an error?

Worksheets(strWrkSht).Range(Cells(2, 2), Cells(intCopyTo,
intCopyTo1)).Select

--
M. Shipp