The only error I see, is Code: Set xlWS = xlWB.Worksheets("sheet1") Try with : Code: Set xlWS = xlWB.Worksheets(1)
Set xlWS = xlWB.Worksheets("sheet1")
Set xlWS = xlWB.Worksheets(1)
JG ... If your problem is fixed don't forget to mark your threads as resolved using the Thread Tools menu ...
Forum Rules