This might handle the match up if Column C is formatted as Date dara type.

Sub hilite()
Dim cRng As String, c As Ramge
cRng = InputBox("Enter a date in dd-mmm-yyyy format", "Date")
nDte = CDate(cRng) 'Convert string to date data type.
Set c = ActiveSheet.Range(C:C).Find(nDte, 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

If not, you might have to go back to the original and then make format
Column C as Text.

"JLGWhiz" wrote in message
...
If you have column C formatted as Date then Dim cRng As Date, If you have
Column C formatted as String then Dim cRng As String. Dim c As Range You
might have to play with the cRng a little to get the data type the same as
Column C. Otherwise it should work OK.

I also notice that I spelled Range wrong in the Set line. Trying to do
two things at once at my age is not smart.


"Steved" wrote in message
...
Hello JGLWhiz

I am getting a

Compile error:
Variable not Defined

It is highligting "cRng ="

Could you please take me the process for this to function.

Thanks for timeout


"JLGWhiz" wrote:

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
End with
.Interior.ColorIndex = 5
End With
End 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.