Keyboard shortcuts, sheets

[MP5424]

This message was edited by MP5424 on 2002-11-07 16:02

 

[Maurizio]

With Vba:
Q1:
Sheets(ActiveSheet.Name).Name = "NameNew"

Q2:
for end:
Application.GoTo Reference:=Worksheets("DB").Cells(65536, 1).End(xlUp), Scroll:=True

for ini:
Application.GoTo Reference:=Worksheets("DB").Cells(1, 1), Scroll:=True