Edit to existing code please

[ipbr21054]

Hi,
Basically when i open a specific worksheet i need two things to happen.
1,Select cell A4
2,Open Userform.

I can only do one of them using the Private Sub Worksheet_Activate()

I have this in use on another sheet which does the two actions BUT its written to select the bottom on my sheet where i now need the top selected
Can this be edited to achieve that please ?

Thanks

Private Sub Worksheet_Activate()Application.GoTo Sheets("SKP IMMO LIST").Range("A" & Rows.Count).End(xlUp).Offset(1, 0), True
ActiveWindow.SmallScroll UP:=10


SKPForm.Show
End Sub

 

[tyija1995]

Hi ipbr,

You could add Range("A4").Select to the code like so:

Private Sub Worksheet_Activate()Application.GoTo Sheets("SKP IMMO LIST").Range("A" & Rows.Count).End(xlUp).Offset(1, 0), True
ActiveWindow.SmallScroll UP:=10


SKPForm.Show
Range("A4").Select
End Sub

Let me know if it works!

 

[ipbr21054]

Thanks.
Didn’t think it was going to be that easy.
In the end I just select cell A4 then show form.
Deleted other part of the code.

Thanks.