[color=darkblue]Sub[/color] Loop_Sheets_Right_of_Target()
[color=darkblue]Dim[/color] i [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]For[/color] i = Worksheets("Target").Index + 1 [color=darkblue]To[/color] Worksheets.Count
[color=green]'Do something here with Worksheets(i)[/color]
MsgBox Worksheets(i).Name [color=green]'Example[/color]
[color=darkblue]Next[/color] i
[color=darkblue]End[/color] [color=darkblue]Sub[/color]