A better way to get Min and Max date
You could have further obfuscated the statement by
hiding "Dates: " in the first format....
I didn't want to confuse the reader by doing that. <g
But, as long as you insist <bg, it could be done either this way...
ActiveCell.FormulaR1C1 = _
"=TEXT(MIN(R[3]C:R[65000]C),""\Dat\e\s: dd mmm yyyy"")&" & _
"TEXT(MAX(R[3]C:R[65000]C),"" to dd mmm yyyy"")"
or this way...
ActiveCell.FormulaR1C1 = _
"=TEXT(MIN(R[3]C:R[65000]C),""""""Dates: """"dd mmm yyyy"")&" & _
"TEXT(MAX(R[3]C:R[65000]C),"" to dd mmm yyyy"")"
Yes, either one of these is much better. <vbg
Rick
|