Mike
What you need to do is to loop through the worksheets collection,
while looking at each worksheets name. The following code should serve
as an example
Sub FindASheet()
' Local Variables
Dim wks As Worksheet
Dim blnWksPresent As Boolean
For Each wks In Application.Worksheets
If wks.Name = "Feed Sheet (1)" Then
blnWksPresent = True
End If
Next wks
If Not blnWksPresent Then Exit Sub
End Sub
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!