I am looking for a code that will circle through all worksheets and set the font of all cells to black color. Moreover it should remove all textboxes inside and i would be pleased if it could replace them by a new box.

I tried something like this:

Dim ws As Worksheet
Dim shp As Shape
    For Each shp In ws.Shapes
        shp.Delete
    Next shp

For Each ws In ThisWorkbook.Worksheets

   Range("A1").CurrentRegion.Select

With Selection.Font
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    
  
 End With
Next ws

unfortunately it just works for the first sheet and it will not remove the textbox.
Its based on a loop code from microsoft and I tried to find working code which can be simply pasted in the loop.

Can somebody explain why it stops on the first sheet and why it only changes the color?

I would be glad. Thank you!

Best regards.