Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

There is also this one I found I don't know where.. :

 

Dim oDimensions As DrawingDimensions = ActiveSheet.Sheet.DrawingDimensions
Dim oCol As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
For Each oDim As DrawingDimension In oDimensions
	oCol.Add(oDim)
Next
oDimensions.Arrange(oCol)
For Each oDim As DrawingDimension In oCol
	On Error Resume Next
	oDim.CenterText
Next

 Regards,

FINET L.

If this post solved your question, please kindly mark it as "Solution"

If this post helped out in any way to solve your question, please drop a "Like"

@LinkedIn     @JohnCockerill