For Each ws In Worksheets
If ws.Index Sheets("Data Sheet").Index Then
'your code
End If
Next

If this post helps click Yes
---------------
Jacob Skaria


"J.W. Aldridge" wrote:


How do I change the following to refer to all sheets after rather than
all sheets except

Reason is, I am adding an additional sheet to the beginning of the
workbook.


On Error Resume Next
For Each ws In Worksheets
If ws.Name < "Data Sheet" Then