Problem To Move To 2nd Worksheet

[RobDog888]

Are you just trying to add data to "Sheet2" or a different workbook?

Set objSheet = objBook.Sheets.Item("Sheet2") 'Set to second Sheet2 or #2