How do I select the entire row of C after I find and select it? Thanks

Set C = .Find("Date", LookIn:=xlValues)
If C Is Nothing Then
MsgBox "Not Found!"
Else
C.Select