How to add a condition to a macro If the name does not exist, continue to Next.

[Slavio]

I have a Macro that converts the table back to Range.
The problem occurs if there is no table name in Sheet3.
I need the macro to skip this step then and continue

Sub ConvertTableToRange5()

    Dim rList As Range
    Dim ws As Worksheet
    
    ' Source - delete table Name
        Sheets("Sheet3").Select
    For Each ws In Worksheets(Array("SourceTab"))
    
   'If "SourceTab" dont Exist Then Next = >>> HERE I need a code
    
    With ws.ListObjects(1)
    
        Set rList = .Range
        .Unlist                           ' convert the table back to a range
    End With
    
    With rList
        .Interior.ColorIndex = xlColorIndexNone
        .Font.ColorIndex = xlColorIndexAutomatic
        .Borders.LineStyle = xlLineStyleNone
    End With
    Next ws
    
    Cells.Select
    Selection.Delete Shift:=xlUp

 

[Norie]

Try this.

        If ws.ListObjects.Count > 0 Then
            With ws.ListObjects(1)
                Set rList = .Range
                .Unlist                           ' convert the table back to a range
            End With

            With rList
                .Interior.ColorIndex = xlColorIndexNone
                .Font.ColorIndex = xlColorIndexAutomatic
                .Borders.LineStyle = xlLineStyleNone
            End With
        End If

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: How to add a condition to a macro If the name does not exist, continue to Next. - OzGrid Free Excel/VBA Help Forum
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Slavio]

Cross-posting (posting the same question in multiple forums) is not against our rules, but how they are done is covered in Article 13 of the Forum Rules .

Also, don't forget to follow and read the link at the end of the rule!

Crosshair posted at: How to add a condition to a macro If the name doesn't exist, continue with the next one. - OzGrid Free Excel / VBA Help Forum
If you have placed the question in more than one place, also provide links to them.

If you contribute cross-post in the future and also provide links, this should not be a problem.

OK. Thank you for warning. I will respect that.

 

[Slavio]

Try this.

        If ws.ListObjects.Count > 0 Then
            With ws.ListObjects(1)
                Set rList = .Range
                .Unlist                           ' convert the table back to a range
            End With

            With rList
                .Interior.ColorIndex = xlColorIndexNone
                .Font.ColorIndex = xlColorIndexAutomatic
                .Borders.LineStyle = xlLineStyleNone
            End With
        End If

I've already solved it on the forum
Thank You

 

[Norie]

Wasn't it royUK that solved it.

 

[Slavio]

Wasn't it royUK that solved it.

But this code also contains some inconsistencies from you