Slight revision to make it a toggle function.

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


Gord Dibben MS Excel MVP

On Sat, 25 Oct 2008 11:22:00 -0700, ShaneDevenshire
wrote:

Hi,

Actually Microsoft has addressed this issue - Excel 2004 (Mac) has this
toolbar button & Excel 2007 (PC) also has it.

In 2003 use the following code

Sub WordWrap()
Selection.WrapText = True
End Sub

I would assign the shortcut key Ctrl+Shift+W or maybe Ctrl+e

Not Ctrl+W because it is already taken, it means Close. Also, I would
record the macro into the Personal Macro Workbook so it would be available in
all of your files. The recording will be longer than the above code, but you
can change it to mine once you've recorded it.

If this helps, please click the Yes button.