Is it possible to change position of activecell on another sheet.

Tried the obvious! - whilst on "Sheet1"

Sub movecell()
Sheets("Sheet2").Range("a1").Select
End Sub