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