Hello
The problem is your not selecting a sheet at any stage so everything will happen in the currently selected sheet.
To make the sub enter the values in sheet2, after the Dim statement insert:
Sheets("Sheet2").Select
HTH
Hercules
Also make sure that the code is in a module rather than an individual sheet (an easy mistake to make)
Bookmarks