Hold Cells Q

[John]

What piece of code would I use for the cursor to go to Cell K12 on Open? I
have it going to K12 at the moment but K12 is in top left hand corner of
screen, I wish A1 to be in that position


Thanks

 

[Mauro Gamberini]

Private Sub Workbook_Open()

With Worksheets(1)
.Range("A1").Select
.Range("K12").Activate
End With

End Sub

 

[John]

Thanks Mauro

Private Sub Workbook_Open()

With Worksheets(1)
.Range("A1").Select
.Range("K12").Activate
End With

End Sub

 

[Dana DeLouis]

With the requirement that A1 be in the upper left corner of the screen,
perhaps consider using the Goto statement with the scroll option.
Here are two general ideas:

Private Sub Workbook_Open()
Application.Goto Range("A1"), True
Range("K12").Select

'or
Application.Goto Range("A1"), True

'Zoom in on Range
Range(Cells(1, 1), Range("K12").Offset(2, 2)).Select
ActiveWindow.Zoom = True
Range("K12").Select
End Sub

HTH