Hi

I want to format all rows in which the first cell in the row has a
comma in it somewhere.
Part of code only below:
A compile eror occurs at Find?

For Each cell In RefNoRange 'loops through
each cell in the reference number range

If IsError(Find(",", cell)) Then Else 'looks
for a comma in the ref number,
With cell.EntireRow
.RowHeight = 32
.VerticalAlignment = xlCenter
'.Font.ColorIndex = 1 'black
.Font.ColorIndex = 5 'blue
.Font.Size = 14
.Font.Name = "comic"
.Font.Bold = True
.Font.Italic = True


Any help would be gratefully received

Ritchi