Gord

Probably preferable to toggle...

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

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
I use this macro assigned to a button as Nick suggests.

Sub Wrap_Text()
With Selection
.WrapText = Not .WrapText
End With
End Sub

Toggles wrap text on/off as you require.


Gord Dibben Excel MVP

On Thu, 14 Apr 2005 23:41:27 +0100, "Nick Hodge"
wrote:

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