I believe you meant InputBox.

Sub hilite()
cRng = InputBox("Enter a date in dd-mmm-yyyy format", "Date")
Set c = ActiveSheet.Ramge(C:C).Find(cRng, LookIn:=xlValues)
If Not c Is Nothing Then
With ActiveSheet.Range("A" & c.Row & ":S" & c.Row)
With .Font
.ColorIndex = 3
.Bold = True
Emd with
.Interior.ColorIndex = 5
Emd With
Emd if
End Sub

This is untested, so it might hiccup. Check for typos.



"Steved" wrote in message
...
Hello from Steved

I'm using Office 2007

Highlite the "Row" from "Col A: to Col S:"

I would like to please have a message box that will allow me to input a
date
ie "22-Jun-2009" which are in the Column C:C, which would goto the row
then
from Column A: to Column S: have the Fill colour be "Yellow" and the Text
"Red and Bold".

Thankyou.