clear all activeX object values

Try this

Sub Clear_TextBox()
    Dim tbx    As OLEObject
    For Each tbx In ActiveSheet.OLEObjects
        If TypeName(tbx.Object) = "TextBox" Then
            tbx.Object.Text = ""
        End If
    Next
End Su