View Single Post
  #13   Report Post  
Posted to microsoft.public.excel.programming
Rick Rothstein \(MVP - VB\)[_1414_] Rick Rothstein \(MVP - VB\)[_1414_] is offline
external usenet poster
 
Posts: 1
Default 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