Appends date/time stamp to current cell.
Sub datestamp() Dim strWhatTime strWhatTime = Format(Now(), "mm-dd-yy hh:mm:ss ddd") If ActiveCell.Value = "" Then ActiveCell.Value = strWhatTime '& (tempp - Int(temp)) 'ActiveCell.Value = Format(Now(), "c") '& (tempp - Int(temp)) Else ActiveCell.Value = ActiveCell.Value & " " & strWhatTime End If End Sub 'ActiveCell.FormulaR1C1 = "11/1/2011"