Shrink text to fit in a cell

Parameters

Macro Title:
Shrink Text Option:
First Comment:

'

Sub Shrink_to_fit()
'shrink text to fit in selected cell

Selection.ShrinkToFit = True

End Sub