Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then

Target.Value = Replace(Target.Value, " ", Chr(10))
End If
End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"EMZAM" wrote in message
...
Trying to vertically format blocks of text each containing 4 characters in
length.
Shown here as received in "horizontal format".
ABCD GFDR BGVH ARDG etc. etc.
These must be formatted vertically in one cell.
I manually type ALT enter in the space between each thereby formatting
down
each 4 to make a vertical column in one cell...
ABCD
GFDR
BGVD
ARGD
Can you suggest a more automated way to do this formatting of text rather
than having to go typing ALT ENTER each time?