visible sheets -

[keithkemble]

Thanks to Nate o who help with the original routine that allowed me to advance to the next visible sheet within a protected workbook. Works a treat. This routine which work the opposite way ( ie the active sheet moves left does not work consistently)

There are a number of sheets ( up to 20) but only a few are visible at any one time. I want the active sheet to become the next visible sheet to the left of the present one.

Any suggestions?

Sub prevpage()
Dim y As Worksheet
On Error GoTo 1 'In case you're on the last sheet
Set y = ActiveSheet.Previous
ActiveSheet.Previous.Activate
' ActiveSheet.PrintOut copies:=1, collate:=True
1: End Sub

[kkknie]

How about this:

Sub PreviousVisible()



Dim i As Integer



For i = ActiveSheet.Index - 1 To 1 Step -1

   If Sheets(i).Visible = True Then

      Sheets(i).Select

      Exit For

   End If



Next



End Sub

K