How can I select previous sheet of Sheets("Apple") ?

**HerryMarkowitz** · 12-26-2013, 03:22 PM

Hi experts,
Following code is working good;

Worksheets.Add Before:=Sheets("Apple")

Following code is not working;

Worksheets.Select Before:=Sheets("Apple")

How can I select previous sheet of Sheets("Apple") ?

Thanks in advance

**fredlo2010** · 12-26-2013, 03:27 PM

Perhaps something like this:

on error resume next
sheets(sheets("Apple").index-1).select
on error goto 0

I have the error in case "Apple" is the first sheet.

Thanks

**HerryMarkowitz** · 12-26-2013, 03:32 PM

Thank you fredlo2010. Solved.

**JOHN H. DAVIS** · 12-26-2013, 03:32 PM

Maybe:

1

Sub HerryMarkowitzzzaa()
Sheets("Apple").Activate
Sheets.Add
End Sub

2

Sub HerryMarkowitzzza()
Sheets("Apple").Activate
ActiveSheet.Previous.Select
End Sub

**HerryMarkowitz** · 12-26-2013, 03:34 PM

This is also good.
Thanks JOHN H. DAVIS.

Sub HerryMarkowitzzza()
Sheets("Apple").Previous.Select
End Sub

**fredlo2010** · 12-26-2013, 03:36 PM

Originally Posted by HerryMarkowitz

This is also good.
Thanks JOHN H. DAVIS.

Sub HerryMarkowitzzza()
Sheets("Apple").Previous.Select
End Sub

This is neat!!! thanks for sharing.

**JOHN H. DAVIS** · 12-26-2013, 03:42 PM

You're both welcome. However, I learned something new with fredlo2010's approach.

**fredlo2010** · 12-26-2013, 03:44 PM

Originally Posted by JOHN H. DAVIS

You're both welcome. However, I learned something new with fredlo2010's approach.

and I with yours

**HerryMarkowitz** · 01-11-2014, 04:44 AM

Thanks again.

Re: How can I select previous sheet of Sheets("Apple") ?