1: 2: 3: 4: 5: 6: 7: 8:
Sub ClearFormulaInTextBoxes(WSName As String) Dim sha As Shape For Each sha In Sheets(WSName).Shapes If sha.Type = msoTextBox Then sha.DrawingObject.Formula = "" End If Next End Sub