Spalten Rahmen markieren

Ich verwende den unten stehenden VBA Code zum Datum von Heute suchen. Ist es möglich das der Rahmen der Spalte wo das Datum steht durch eine Farbe hervorgehoben werden kann??
ich weiß nicht wo ich Color einfüge in den VBA Code

Code:

Private Sub CommandButton1_Click()
Dim C As Range, Ws As Worksheet, bolFound As Boolean
On Error Resume Next
CommandButton1.TakeFocusOnClick = False
For Each Ws In Worksheets
With Ws.Cells
Set C = .Find(Date, LookIn:=xlFormulas)
If Not C Is Nothing Then
Ws.Select
C.Select
bolFound = True
Exit Sub
End If
End With
Next
If Not bolFound Then
MsgBox "Datum wurde nicht gefunden!" & Space(10), 64, "Hinweis"
End If
End Sub