Shrink text to fit in a cell
|
Macro Title:
|
|
Worksheet name:
|
|
Shrink text cells:
|
|
Shrink Text Option:
|
|
Comment:
' |
Sub Shrink_to_fit()
'shrink text to fit in cell B2 in worksheet named Sheet1
Worksheets("Sheet1").Range("B2").ShrinkToFit = True
End Sub