Maybe change :
withWith Sheets("Sheet1")
Not sure but maybe you do a check on the wrong workbookWith wb.sheets("Sheet1")
Charlize
ps.
must it beSet wb = Workbooks.Open("C:\documents and settings\vrtSzL04\desktop\copy of compname.xls", True, True
a ) at the end ?Set wb = Workbooks.Open("C:\documents and settings\vrtSzL04\desktop\copy of compname.xls", True, True)