It can sometimes be helpfull having a large cell value in a comment. You can then easily read the value (hover over cell) instead of resizing column widths.
The following subroutine adds a comment to cells where the value exceeds the column width.
Sub Createcomments() 'Create comments in cells where the value is larger than column width Dim rng As Range Dim Cell As Variant On Error Resume Next Set rng = Application.InputBox(Prompt:="Select a range:", _ Title:="Create comments in cells where the value is larger than column width", _ Default:=Selection.Address, Type:=8) On Error GoTo 0 If rng Is Nothing Then Else For Each Cell In rng If Len(Cell) * 0.9 > Cell.ColumnWidth Then If Cell.Comment Is Nothing Then Cell.AddComment Cell.Value End If End If Next Cell End If End Sub
Download excel *.xlsm file