for each cell in Range("C2:C100")
if cell.Value < 10 then
if not cell.Font.Bold then
cell.Font.bold = True
cell.EntrireRow.copy Destination:= _
worksheets("Failures").Cells(rows.count,1).End(xlu p)(2)
end if
else
cell.Font.bold = False
end if
Next

Hard to get more specific based on your description.

--
Regards,
Tom Ogilvy

"hawaiian_native"
<hawaiian_native.1tv9uu_1124212479.5866@excelfor um-nospam.com wrote in
message news:hawaiian_native.1tv9uu_1124212479.5866@excelf orum-nospam.com...

I hope there is someone out there that can help me. I am designing a
workbook that has to do multiple things. I am filling in information
from tests taken in the field.
My problem if that if something I tests fails then I would like it to
change font style to bold. All of the devices are in the same column.
The rest of the information is in the row of the device and its
location with extra comments.

My other problem is that if the device fails and becomes bold then I
need the easiest way to copy the row that the device and description is
in to another sheet in the workbook.

I have gone through all my books and searched the internet for many
hours trying to find examples or help on how to do this.

If there is anyone that could lend a hand the help would be gratefully
welcomed!


--
hawaiian_native
------------------------------------------------------------------------
hawaiian_native's Profile:
http://www.excelforum.com/member.php...o&userid=26351
View this thread: http://www.excelforum.com/showthread...hreadid=396169