ActiveWindow.ActivateNext ----Is there a ActiveSheet.ActivateNext


--
Esau

> ActiveWindow.ActivateNext ----Is there a ActiveSheet.ActivateNext

You could always use something like this (it stops at the last sheet)...

Worksheets(ActiveSheet.Index-(ActiveSheet.Index<Worksheets.Count)).Activate

Rick

Not really. By using the worksheet index number you can activate the next
sheet tab to the right.

Worksheets(ActiveSheet.Index + 1).Activate

Mike F
"Esau" <(E-Mail Removed)> wrote in message
news747036B-F0BC-4D4E-8CC3-(E-Mail Removed)...
> ActiveWindow.ActivateNext ----Is there a ActiveSheet.ActivateNext
>
>
> --
> Esau

Rick's reply is more accurate whereas mine would error out on the last
sheet.

Mike F
"Mike Fogleman" <(E-Mail Removed)> wrote in message
news:Uc-(E-Mail Removed)...
> Not really. By using the worksheet index number you can activate the next
> sheet tab to the right.
>
> Worksheets(ActiveSheet.Index + 1).Activate
>
> Mike F
> "Esau" <(E-Mail Removed)> wrote in message
> news747036B-F0BC-4D4E-8CC3-(E-Mail Removed)...
>> ActiveWindow.ActivateNext ----Is there a ActiveSheet.ActivateNext
>>
>>
>> --
>> Esau
>
>

You can use

ActiveSheet.Next.Select

ActiveSheet.Previous.Select

But test where you are because it blow if you you are in the last/first sheet


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Esau" <(E-Mail Removed)> wrote in message news747036B-F0BC-4D4E-8CC3-(E-Mail Removed)...
> ActiveWindow.ActivateNext ----Is there a ActiveSheet.ActivateNext
>
>
> --
> Esau

>> ActiveWindow.ActivateNext ----Is there a ActiveSheet.ActivateNext
>
> You could always use something like this (it stops at the last sheet)...
>
> Worksheets(ActiveSheet.Index-(ActiveSheet.Index<Worksheets.Count)).Activate

As I said, the above code stops the indexing at the last sheet. If, after
you reach the last sheet, you wanted to wrap back around to the first sheet,
give this a try...

Worksheets(ActiveSheet.Index + 1 + Worksheets.Count * _
(ActiveSheet.Index + 1 > Worksheets.Count)).Activate


Rick

> As I said, the above code stops the indexing at the last sheet. If, after
> you reach the last sheet, you wanted to wrap back around to the first
> sheet, give this a try...
>
> Worksheets(ActiveSheet.Index + 1 + Worksheets.Count * _
> (ActiveSheet.Index + 1 > Worksheets.Count)).Activate

And if you need code to move to the Previous sheet where, if the ActiveSheet
is the first one, it wraps back around to the last sheet, this code will do
that...

Worksheets(ActiveSheet.Index - 1 - Worksheets.Count * _
(ActiveSheet.Index = 1)).Activate

Rick