If Sheet Exist, Then Go to Newly Created Sheet

[Guzzlr]

Hello All
I have the following Code

For Each sht In ActiveWorkbook.Worksheets
    If sht.Visible And sht.Name = "ECD" Then
    sht.Select

The problem is if the sheet "ECD" already exist in the workbook, then I need to go to a newly created sheet
(already created so every day creates a new day sheet)
with this code:

.Name = Format(Date, "MM-DD-YYYY")

Is this possible?
Thanks for the hep

 

[JoeMo]

See if this does what you want:

Sub CreateNewSheetIf()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
    If sht.Name = "ECD" Then
        If Not SheetExists(Format(Date, "MM-DD-YYYY")) Then
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = Format(Date, "MM-DD-YYYY")
        Else
            MsgBox "A sheet named " & Format(Date, "MM-DD-YYYY") & " already exists"
        End If
    End If
Next sht
End Sub
Function SheetExists(shName As String) As Boolean
SheetExists = False
For Each sh In ActiveWorkbook.Sheets
    If sh.Name = shName Then
        SheetExists = True
        Exit For
    End If
 Next sh
End Function

 

[Guzzlr]

Sort of...
You've given me some good ideas.
Let me play around with it for awhile.
Thanks for the help!

 

[JoeMo]

You are welcome - thanks for the reply.