In Sheet1 I have 4 buttons to call the corresponding sub (say page1, page2, page3, page4) that goes to a specific range in Sheet2 (say rng1, rng2, rng3, rng4). I use the following code:
Sub page1()
Set rng1 = ActiveWorkbook.Worksheets("Sheet2").Range("B1:J20")
Application.Goto rng1, True...