Workbook jumps to Sheet1, cell A1, regardless of where it was whenlast saved

[Michael Lanier]

I use the following macro to jump to a particular worksheet when a
workbook is opened and Sheet1!O70=0, however I'd like to modify it so
that when those conditions are met, the cursor will rest on a
particular cell such as A1. Are there any suggestions? Thanks in
advance.

Michael

Private Sub Workbook_Open()
With Me
If .Worksheets("Sheet1").Range("O70").Value = 0 Then
.Worksheets("Sheet1").Activate
End If
End With
End Sub

 

[Gary Keramidas]

maybe this:

Private Sub Workbook_Open()
With Me
If .Worksheets("Sheet1").Range("O70").Value = 0 Then
.Worksheets("Sheet1").Activate
Application.Goto .Worksheets("Sheet1").Range("A1"), scroll:=True
End If
End With
End Sub

 

[Dave Peterson]

Since you're using application.goto, you don't even need to activate sheet1.

 

[Michael Lanier]

Thanks Gary and Dave. It works as expected.

Michael