I am getting this to work but it will create the worksheet then give me the Error 1004. trying to figure out what I have wrong in this. I am going to want to run this and place a few other name sets that will create a new sheet if found

Sub Do_While_loop()
Dim Fail As String
Fail = "Failure"
r = 1
Do Until Cells(r, 1) = ""
Do Until r = Fail
r = r + 1
If Cells(r, 1) = Fail Then
Sheets.Add.Name = "Failure"
Sheets("Sheet1").Activate
Exit Do
End If
Loop
Loop


End Sub