Move to next or previous unhidden sheet

[ddgacic]

I have found these two codes for moving to the next/previous visible sheets.

Please Login or Register  to view this content.

Sub NextSheet()
Set Sh = ActiveSheet
On Error Resume Next
Do While Sh.Next.Visible <> xlSheetVisible
If Err <> 0 Then Exit Do
Set Sh = Sh.Next
Loop
Sh.Next.Activate
On Error GoTo 0
End Sub

Sub PrevSheet()
Set Sh = ActiveSheet
On Error Resume Next
Do While Sh.Previous.Visible <> xlSheetVisible
If Err <> 0 Then Exit Do
Set Sh = Sh.Previous
Loop
Sh.Previous.Activate
On Error GoTo 0
End Sub

Please Login or Register  to view this content.

I have a workbook with 50 works sheets (some sheets are hidden). I created two command buttons on each sheet (“<Back” and “Next>”) and connected them with relevant codes. It all works well.

The only issue I have is that when moving from one sheet (say Sheet2) to the next sheet (say Sheet3) I end up in the last active cell in the destination sheet. For example, if the last active cell in Sheet3 was “A23” I will end up in that cell when pressing “Next>” button in Sheet2 or “<Back” button in Sheet4.

Can anyone assist me to modify these codes so that when moves are made (either to the next or previous unhidden sheet) I always end up in a same destination in each worksheet sheet (say cell “A1”).

Many thanks in advance

[TMS]

Try putting:

Please Login or Register  to view this content.

Just before the End Sub



Regards, TMS

[ddgacic]

Thanks - work perfectly

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[zbor]

I'm afraid your post does not comply with Rule 8 of our Forum RULES. Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser)to the cross-post. Expect cross-posts without a link to be closed a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

Cross-posted: http://www.mrexcel.com/forum/excel-q...den-sheet.html