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.

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.

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

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

And one more option:

Sub Wrap_Text2()
Selection.WrapText = not activecell.wraptext
End Sub



Terri@Lear wrote:

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.

--

Dave Peterson

Dave

That's just lazy ;-)

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


"Dave Peterson" wrote in message
...
And one more option:

Sub Wrap_Text2()
Selection.WrapText = not activecell.wraptext
End Sub



Terri@Lear wrote:

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.

--

Dave Peterson

Sometimes I have to run it twice to get a larger range of cells set the way I
want--but it is easier than doing it cell by cell. (lazy = a good thing!)
<vbg

Nick Hodge wrote:

Dave

That's just lazy ;-)

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

"Dave Peterson" wrote in message
...
And one more option:

Sub Wrap_Text2()
Selection.WrapText = not activecell.wraptext
End Sub



Terri@Lear wrote:

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.

--

Dave Peterson

--

Dave Peterson