Cycle through sheet tabs

[craigg3]

I have the following that cycles through sheet tabs but I need it to skip a tab if tab is named "Debt" and then continue to cycle through remaining sheets.

If ActiveSheet.Name <> "Data" Then
Do Until ActiveSheet.Name = "Data"

How do I tell it to skip that tab but continue to reaching the "Data" tab.

 

[JoeMo]

Maybe:

Sub CycleToData()
Dim i As Long
For i = 1 To Sheets.Count
    If Sheets(i).Name = "Data" Then
        Sheets(i).Select
        Exit Sub
    End If
Next i
End Sub