Sub Bred()
Dim col_num As Long
Dim row_num As Long
Dim max_width As Long
For col_num = 0 To MSFlexGrid1.Cols - 1
max_width = 0
For row_num = 4 To MSFlexGrid1.row - 1
If max_width < TextWidth(MSFlexGrid1.TextMatrix(row_num, col_num)) Then
max_width = TextWidth(MSFlexGrid1.TextMatrix(row_num, col_num))
End If
Next row_num
MSFlexGrid1.ColWidth(col_num) = max_width + 650
MSFlexGrid1.ColWidth(0) = max_width + 1600
MSFlexGrid1.ColWidth(1) = max_width + 950
'Här har jag lagt till två rader som jag vill ha en annulunda bred på. Sen är det bara att justera talen tills man får en bredd som man är nöjd med.
Next col_num

End Sub