Is there a way to make a short statement for the two ranges of cell
being selected, K14 through A14, and A13 through A1?

Sub GoToA1()
' Scroll cursor to cell A1. Starting at K14 allows for
' cells that are part of "Freeze Pane."

Range("K14").Select
Range("J14").Select
Range("I14").Select
Range("H14").Select
Range("G14").Select
Range("F14").Select
Range("E14").Select
Range("D14").Select
Range("C14").Select
Range("B14").Select
Range("A14").Select

Range("A13").Select
Range("A12").Select
Range("A11").Select
Range("A10").Select
Range("A9").Select
Range("A8").Select
Range("A7").Select
Range("A6").Select
Range("A5").Select
Range("A4").Select
Range("A3").Select
Range("A2").Select
Range("A1").Select

End Su

--
P J
-----------------------------------------------------------------------
P J H's Profile: http://www.hightechtalks.com/m89
View this thread: http://www.hightechtalks.com/t235157