Modification macro plusieurs classeurs

[Pimpom]

Bonjour le forum,
Suite à la modification d'une macro, comment procéder pour mettre à jour tous les classeurs (environ 500) situés dans un même dossier sans les ouvrir les uns après les autres.

Code à rajouter:

'Ecriture majuscule
TextBox1 = UCase(TextBox1)

Pour obtenir:

Private Sub TextBox1_Change()
[COLOR="DarkRed"]'Ecriture majuscule
TextBox1 = UCase(TextBox1)[/COLOR]
'Limite le Nb de caractère à 31
If Len(TextBox1) > 31 Then
MsgBox ("                                            ATTENTION !!!!!!!" & vbLf & vbLf & "Le nombre de caractère ou espace ne doit pas être supérieure à 31." & vbLf & "Veuillez renommer le nouveau matériel")
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
End If
'N'autorise que certain caractère
 For pos = 1 To Len(TextBox1.Value)
    carac = Mid(TextBox1.Value, pos, 1)
    If Not carac Like "[A-Z]" _
    And Not carac Like "[0-9]" _
    And Not carac = "-" _
    And Not carac = "'" _
    And Not carac = " " _
    And Not carac = "." _
    And Not carac = "&" Then
        MsgBox "Ce caractère est interdit."
        TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
    End If
Next
End Sub

Merci,
Pimpom