Code Cleanup

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

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

--
Don Guillett
SalesAid Software
[email protected]
"P J H" <[email protected]> wrote in message
news:[email protected]...
>
> 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" <[email protected]> wrote in message
news:[email protected]...
>
> 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" <[email protected]> wrote in message
news:[email protected]...
>
> 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
>