Best Fit Macro

[lms]

I created a list of Defined Views that each one shows different fields
in the columns of the contact folder. I then found this macro that is
perfect that I can use to adjust the view of the contacts and decide
which Defined View to show...but the Defined View field areas are not
saving the "Best Fit" area for each field.....Is there something to add
to the macro or another macro to automatically best fit all columns
automatically using the macro?

Sub GetAssignedView_Name_of__Fields()
Dim objViews As Views
Dim objView As View
' Applies view to select folder
Set objViews = Application.ActiveExplorer.CurrentFolder.Views
'Get the view
Set objView = objViews.item("View Defined View Name")
'apply the view
objView.Apply
End Sub