rjwebgraphix
Well-known Member
- Joined
- May 25, 2010
- Messages
- 590
Can someone help me out with this? I'm just trying to hide rows that the font is strikethrough, but the following code acting as if every row is strikethrough. Some are, some are not. *scratching head*
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long
Dim i As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastrow
If Cells(lastrow, "A").Characters.Font.Strikethrough = True Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
Next i
End Sub