On reflection you will have to pass the value of X to sub apples to do
anything so perhaps this slight change

Public x As Long
Sub nn()
For x = Sheets("Oranges").Index + 1 To Worksheets.Count
Call apples
Next
End Sub

Sub apples()
MsgBox Sheets(x).Name
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"J.W. Aldridge" wrote:

on each sheet in workbook after sheet "oranges", run macro "apples"
.