Makes table then quits

[Dr. Demento]

One of my subs keeps removing a table, so I'm attempting to force table formatting on data. Using code straight from the recorder, it works on a completely blank page but when I attempt to create a table with data already on a page, it creates the table but then stops. The data has some conditional formatting and a Worksheet_SelectionChange sub to highlight the current row/column.

Any thoughts what's going on and how I can work thru this?

Thanks y'all.

Sub Macro5()
'
' Macro5 Macro
'

'
    ActiveSheet.ListObjects.add(xlSrcRange, Range("$A$1:$AH$93"), , xlYes).name = _
        "Table89"
    Range("Table89[#All]").Select
    ActiveSheet.ListObjects("Table89").TableStyle = ""
    ActiveSheet.ListObjects("Table89").name = "tbl_Updates"
End Sub

 

[Fluff]

What happens if you comment out the entire selectionchange event?

 

[Dr. Demento]

Ok; I fixed my code so that:

?Application.EnableEvents = False

but the Sub still quits once the table is created/added.

 

[Fluff]

but the Sub still quits once the table is created/added.

Is that after commenting out the selection change event?

 

[Dr. Demento]

Yes; even after commenting out the code for the worksheet Selection Change Event, the sub still quits after creating the new table.

 

[Fluff]

In that case it might be down to the conditional formatting.
You could try removing all the CF & see what happens.

 

[Dr. Demento]

If that's the case, then I probably would be best served by copying the data from the offending page on to a new sheet, apply the required table, and then copy the entire thing back on to the original sheet. Unless, you can think of a different option . . . I think I'm out of options (I need the CF). Ah well *sigh*

Thanks for your help, Fluff.

 

[Fluff]

Make a copy of your workbook & delete the Cf in that copy & see if it makes a difference.