I got it! I had to put the code into a module (apparently always the
case but I've never done this befoX) After that I used the
Auto_Open function like:
Private Sub Auto_Open()

Worksheets(1).ScrollArea = "A1:G1000"
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Activate

End Sub

And it works!!

Thanks a bunch guys,
Mike