Macro to place varying text all the time into a single line from 2 orsometimes 3 lines

[ezduzitez]

Here are 6 examples separated by rows.
---------------------------
Ø1.40 +/-.01
(RELIEF)
---------------------------
Ø1.3114 +/-.0044
TO RELIEF
---------------------------
..46
MAX
- 2 PLACES
---------------------------
Ø1.2975 +/-.0075
(RELIEF)
---------------------------
..87415 +/-.00415
TO RELIEF

 

[Claus Busch]

Hi,

Am Wed, 19 Jun 2013 12:47:22 -0700 (PDT) schrieb (e-mail address removed):

Here are 6 examples separated by rows.
---------------------------
Ø1.40 +/-.01
(RELIEF)

you don't need a macro. Select the cells => Rightclick => Format cells
=> Alignment and deactivate "Wrap Text"

With a macro use:
Sub UnWrap()
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
End With
End Sub

First select all cells you will change and then run the macro


Regards
Claus Busch