Insert Date in the Beginning of a cell

[JBates]

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

 

[Fluff]

Hi & welcome to MrExcel.
Try

 If c.Value <> "" Then c.Value = D & c.Value

 

[JBates]

Thank you! That is exactly what I wanted it to do

 

[Fluff]

You're welcome & thanks for the feedback.