Add Worksheet if it does not exist

Add a worksheet titled "Data" if it doesn't exist and ignore adding if it already exists

Sub Add_Worksheet()
Dim i As Long
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "Data" Then
        SheetFound = True
    End If
Next i

If Not SheetFound Then
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Data"
End If
End Sub