Terri

You could put this code into your personal.xls and assign a shortcut key or
custom toolbar button to it, trhis will make it one-press

Sub WrapText()
Dim myCell As Range
For Each myCell In Selection
myCell.WrapText = True
Next myCell
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS

"Terri@Lear" wrote in message
...
There is an icon for almost every other formatting function, and wrap text
is
one I use continually, but there's no shortcut and it takes several steps
each time.