With Grid1
...        
For lA = 1 To .Cols
   Grid1.Columns(lA).MinWidth = TextWidth(Grid1.Columns(lA).Caption) * 1.2
   .DoColumnAutoSize lA
Next
...
End With

With Grid2
...        
For lA = 1 To .Cols
   Grid2.Columns(lA).MinWidth = TextWidth(Grid2.Columns(lA).Caption) * 1.2
   .DoColumnAutoSize lA
Next
...
End With

With Grid3
...        
For lA = 1 To .Cols
   Grid3.Columns(lA).MinWidth = TextWidth(Grid3.Columns(lA).Caption) * 1.2
   .DoColumnAutoSize lA
Next
...
End With