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

try this
range("b14:k14")
or
range("b14,d14,k14")

--
Don Guillett
SalesAid Software

"P J H" wrote in message
...

Is there a way to make a short statement for the two ranges of cells
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 Sub


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

Range("A1:A13,A14:K14").Select

--
Regards,
Tom Ogilvy


"P J H" wrote in message
...

Is there a way to make a short statement for the two ranges of cells
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 Sub


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

P J H,

Perhaps you want to pick up the upper left corner of the frozen pane? If so:

Cells(ActiveWindow.ActivePane.ScrollRow, _
ActiveWindow.ActivePane.ScrollColumn).Select

HTH,
Bernie
MS Excel MVP


"P J H" wrote in message
...

Is there a way to make a short statement for the two ranges of cells
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 Sub


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