Next sheet from end to beginning ?

[magnum0357]

I have the following macro........

Dim i
If ActiveSheet.Index = Sheets.Count Then Exit Sub
For i = ActiveSheet.Index + 1 To Sheets.Count
If Sheets(i).Visible = xlSheetVisible Then
Sheets(i).Select
Exit For
End If
Next

This macro starts at which ever sheet I am on and goes from front to end say 1 to 16.....my question is how do reverse the code to go to the next unhidden sheet from 16 to 1 ?

any help will be greatly appreciated........

magnum

 

[magnum0357]

Awesome.......Awesome.......been pulling my hair out for days.............sorry didn't reply last night but got tired and finally gave up............THANKS FOR THE HELP ! ! ! !