Any takers at all ????
Sure it is a small thing i have missed but cannot work it out.

"Corey" wrote in message
...
The below code changes the font to strikethrough when there are no values
in ColumnC in the rows of 2-22 offset from a value in ColumnA.

The code seems to work ok, but seems to be dependant on the LAST value
rather than ALL the values.

Sub RemoveUsedRolls()
Application.ScreenUpdating = False
Dim LastCell As Long
Dim myrow As Long
On Error Resume Next
LastCell = Worksheets("InspectionData").Cells(Rows.Count,
"A").End(xlUp).Row
With ActiveWorkbook.Worksheets("InspectionData")
For myrow = 2 To LastCell ' <======= Seems to change value in Column A
font ONLY by what LAST Cell font is like
If .Cells(myrow, 1) < "" Then
For i = 2 To 22 ' <=============== Need the font changed when there is NO
values in this range with Font.Strikethrough = False
If .Cells(myrow, 3).Offset(i, 0).Value < "" And .Cells(myrow,
3).Offset(i, 0).Font.Strikethrough = False Then
If .Cells(myrow, 1).Value < "" Then .Cells(myrow, 1).Font.Strikethrough =
False
Else:
If .Cells(myrow, 3).Offset(i, 0).Value < "" And .Cells(myrow,
3).Offset(i, 0).Font.Strikethrough = True Then
If .Cells(myrow, 1).Value < "" Then .Cells(myrow, 1).Font.Strikethrough =
True
End If
End If
Next i
End If
Next
End With
Application.ScreenUpdating = True
End Sub


Did i miss something to in include ALL values in the Indicated lines ??
Corey....