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