Need to edge out the competition for your dream job? Train for certifications today.
Function HasStrike(Rng As Range) As Boolean
HasStrike = Rng.Font.Strikethrough
Open in new window
Dim cll As Range
Dim rng As Range
Dim rC As Integer
rC = Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Count 'Gets the last row to check
Set rng = Sheets("Sheet1").Range("A1:A" & rC) ' Sets the range to search through
For Each cll In rng
If cll.Font.Strikethrough = True Or cll.Offset(0, 1).Font.Strikethrough = True Then
cll.Font.Strikethrough = True
cll.Offset(0, 1).Font.Strikethrough = True
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.