Hermants,

I haven't run this but

replace

Sheets("TEST TSC").Select
-Range("A1").Select

With

Worksheets"(TEST TSC").range("A1").Select





Sheets("TEST TSC").Select
-Range("A1").Select *<---------------- Run-time error '1004'*-
hemants
------------------------------------------------------------------------
hemants's Profile:
http://www.excelforum.com/member.php...o&userid=15031
View this thread: http://www.excelforum.com/showthread...hreadid=266679