これはなぜエラーが出るの?

Sub Test()
ActiveSheet.ActiveCell = 1
End Sub