Here is what I have so far.
Sub InsertDate()
'
' Insert Date at beginning of cell Macro
'
Dim D As String
D = Format(Now(), "MM/DD/YY")
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = D.Value & c.Value
Next
End Sub
Sub InsertDate()
'
' Insert Date at beginning of cell Macro
'
Dim D As String
D = Format(Now(), "MM/DD/YY")
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = D.Value & c.Value
Next
End Sub