The only error I see, is
Code:
Set xlWS = xlWB.Worksheets("sheet1")
Try with :
Code:
Set xlWS = xlWB.Worksheets(1)