Sub CopyToday()
Range("G1").Value = Format(Date, "Short Date")
End Sub
On 2002-10-17 14:41, Andrew Poulsom wrote:
That could done with one line of code:
Code:Sub CopyToday() Range("G1").Value = Format(Date, "Short Date") End Sub
Range("G1").Value = Format(Date - Range("G2").Value, "Short Date")
On 2002-10-18 03:21, B_2 wrote:
sweet..thx dude