I have a macro that I am adding a date to a cell with VBA and at the
same time I would like to change the format of just the date to red
and a little smaller. DtTxt is the date.

Here is my current code. Obviously this is used within a form.

Thanks,
Jay

Private Sub Promise_Click()
Dim Rng As Range
Set Rng = Selection
Rng.UnMerge
Set Rng = Rng.Resize(1, 1)
Rng = Rng.Value & " " & DtTxt
Set Rng = Rng.Resize(1, 5)
Rng.Merge

SelectIt 'This is another subroutine that I run
With Selection
.Interior.ColorIndex = 4
End With
End Sub