VBA to Unhide Sheets to the Right

[tacoken]

After hiding all sheets (already done), I'd like to be able to unhide just certain sheets in the workbook, all of which are to the right of a selected sheet. I'd like this to be dynamic, so I'd like to be able to change the active sheet in the code and have all sheets to the right unhidden without specifying the names of those sheets. I'm sure there's a simple solution, but I'm drawing a blank. Much appreciated.

 

[VoG]

Try

Sub unhide()
Dim i As Integer
For i = ActiveSheet.Index + 1 To Worksheets.Count
    Sheets(i).Visible = xlSheetVisible
Next i
End Sub

 

[tacoken]

Perfect VoG! Thank you!