【Excel】現在のシート内にあるテキストボックスの書式を一括で変更する

Sub TextBoxFormat()

Dim myOb As Object

For Each myOb In ActiveSheet.TextBoxes

With myOb '書式設定
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

Next

End Sub

参考：この辺