Sub FixLongFormulas() 'goto a remote area of ws & select 1st line
x = ActiveCell.Row
y = ActiveCell.Column
z = ActiveCell.End(xlDown).Row
For Each C In Range(Cells(x, y), Cells(z, y))
mstr = mstr & C
Next
Cells(x - 1, y) = mstr
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Max" wrote in message
...
There'll be a number of inadvertent line breaks when you copy the formula
direct from posting to paste into your formula cell. Just remove all the
line
breaks carefully before you array-enter to confirm the formula.

Perhaps easier for the "direct copy-n-paste, array-enter",
here's a re-rendered version of the same formula:

=IF(SUM(Sheet1!B61:B67)<=0,""," ("&
FIXED(OFFSET(INDIRECT("'Sheet1'!B"&60+MATCH(TRUE,S heet1!B61:B670,0)),,-1),2)
&" - "&
FIXED(OFFSET(INDIRECT("'Sheet1'!B"&60+MATCH(TRUE,S heet1!B61:B670,0)),,2),2)
&")")

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---