Clear Contents If

[billandrew]

Good evening

Looking to clear all if any one of the following worksheets exists otherwise continue to add the sheets if they do not exist.

Not sure how to proceed

With ThisWorkbook
On Error Resume Next
.Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = "RegionA"
.Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = "RegionB"
.Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = "RegionC"
.Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = "RegionD"
On Error GoTo 0

End With

 

[mrshl9898]

invalid solution, apologies.

back in 10

 

[mrshl9898]

Dim sh As Worksheet, flg As Boolean

For Each sh In Worksheets
If sh.Name = "RegionA" Then flg = True: Exit For
Next
If flg = True Then
Sheets("RegionA").Cells.ClearContents
Else
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "RegionA"
End If
flg = False


For Each sh In Worksheets
If sh.Name = "RegionB" Then flg = True: Exit For
Next
If flg = True Then
Sheets("RegionB").Cells.ClearContents
Else
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "RegionB"
End If
flg = False


For Each sh In Worksheets
If sh.Name = "RegionC" Then flg = True: Exit For
Next
If flg = True Then
Sheets("RegionC").Cells.ClearContents
Else
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "RegionC"
End If
flg = False


For Each sh In Worksheets
If sh.Name = "RegionD" Then flg = True: Exit For
Next
If flg = True Then
Sheets("RegionD").Cells.ClearContents
Else
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "RegionD"
End If

 

[billandrew]

Great stuff

thank you.