I found your macro that is perfect that I can use to adjust the view of folder of contacts and decide what fields to show...but the define field area is not saving the "Best Fit" area for each field.....Is there something to add to the macro or another macro to automatically bet fit all columns?
Sub GetAssignedView_All_Status_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 All Status Fields")
'apply the view
objView.Apply
End Sub
Sub GetAssignedView_All_Status_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 All Status Fields")
'apply the view
objView.Apply
End Sub