Hi. Just a note if it applies. This assumes data is in Row 1.

For r = Sheets("Sheet1").UsedRange.Rows.Count To 1 Step -1

For example, if you only have data in A5:B7, then there are 3 rows, and
not the assumed 7.

Sub DeleteStrikeThrough2()
Dim r As Long

For r = Sheets("Sheet1").UsedRange.Rows.Count To 1 Step -1
Debug.Print r
Next r
End Sub

This returns 3,2,1 and not 7,6,5,4,3,2,1
Again, just a heads-up.
- - -
Dana DeLouis


OssieMac wrote:
Hi again Keith,

If not the entire row, if you have a specific column that will have the
strickthrough then the following will do what you want. Just replace the "A"
in Cells(r,"A") with whatever column you wish.

Also in the previous post, delete the line Dim rngRow As Range. I initially
was going to do it a different way and didn't remove the line.

Sub DeleteStrikeThrough2()
Dim r As Long

For r = Sheets("Sheet1").UsedRange.Rows.Count To 1 Step -1
If Cells(r, "A").Font.Strikethrough = True Then
Cells(r, "A").EntireRow.Delete
End If
Next r

End Sub