Basic VBA Question with Array

[SITCFanTN]

I have a workbook with a dozen or so sheets. I'd like to add code to my
existing macro to state when the sheet tab is clicked, the sheet displays at
the bottom of the page, not the top. The reason for this is each of the
sheets has a total at the bottom of the page and I'd like to be able to view
that immediately. I can't specific a specific cell because I download a
report each day so the last row of each sheet varies each day. I'm thinking
this is simple, but I haven't been able to figure it out yet. Thanks for your
help.

[lcoreyl]

try
Cells.SpecialCells(xlCellTypeLastCell).Activate

[Steve Yandl]

I'm not sure you will find it simple to add code to your existing macro to
get what you want but you could add code to the workbook that would do what
I think you want.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim intRowCnt As Integer
intRowCnt = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Cells(intRowCnt, 1).Select
End Sub



Steve Yandl



"SITCFanTN" <[email protected]> wrote in message
news:[email protected]...
>I have a workbook with a dozen or so sheets. I'd like to add code to my
> existing macro to state when the sheet tab is clicked, the sheet displays
> at
> the bottom of the page, not the top. The reason for this is each of the
> sheets has a total at the bottom of the page and I'd like to be able to
> view
> that immediately. I can't specific a specific cell because I download a
> report each day so the last row of each sheet varies each day. I'm
> thinking
> this is simple, but I haven't been able to figure it out yet. Thanks for
> your
> help.

[SITCFanTN]

THanks Steve, this works great, I added it to the bottom of each sheets page
setup sub. I appreciate your help, thank you and have a great holiday.

"Steve Yandl" wrote:

> I'm not sure you will find it simple to add code to your existing macro to
> get what you want but you could add code to the workbook that would do what
> I think you want.
>
> Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> Dim intRowCnt As Integer
> intRowCnt = ActiveSheet.UsedRange.Rows.Count
> ActiveSheet.Cells(intRowCnt, 1).Select
> End Sub
>
>
>
> Steve Yandl
>
>
>
> "SITCFanTN" <[email protected]> wrote in message
> news:[email protected]...
> >I have a workbook with a dozen or so sheets. I'd like to add code to my
> > existing macro to state when the sheet tab is clicked, the sheet displays
> > at
> > the bottom of the page, not the top. The reason for this is each of the
> > sheets has a total at the bottom of the page and I'd like to be able to
> > view
> > that immediately. I can't specific a specific cell because I download a
> > report each day so the last row of each sheet varies each day. I'm
> > thinking
> > this is simple, but I haven't been able to figure it out yet. Thanks for
> > your
> > help.
>
>
>