Adjust Code from <> X to <> X Or W or Y or Z

[CatLadee]

Hi all!

Can someone please help me adjust the underlined below to include the equivalent of

<>"200 - OK"
or "301 - Moved Permanently"or "302 - Moved Temporarily"
or "302 - Found"
Then

Thanks so much for your time! - The CatLadee

-----

Sub ValidateURLs()

    Dim Cell As Range
    Dim Rng As Range
    Dim RngEnd As Range
    Dim Status As String
    Dim Wks As Worksheet
    
        Set Wks = ActiveSheet
        Set Rng = Wks.Range("F2")
        
     Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
        If RngEnd.Row < Rng.Row Then Exit Sub Else Set Rng = Wks.Range(Rng, RngEnd)
        
            For Each Cell In Rng
                Status = GetURLStatus(Cell)
               [U] If Status <> "200 - OK" Then[/U]
                    Cell.Offset(0, 4) = Status
                End If
            Next Cell

End Sub

 

[Joe4]

Are you saying that you are checking for "Status" not equal to ANY of those options?
If so, it would look like:

If (Status <> "200 - OK") And (Status <> [COLOR=#333333]"301 - Moved Permanently"[/COLOR])  And (Status <> [COLOR=#333333]"302 - Moved Temporarily") And (Status <> [/COLOR][COLOR=#333333]"302 - Found") Then[/COLOR]

 

[CatLadee]

Joe - thank you very much for your input. That's exactly what I needed. I appreciate you!

 

[Joe4]

You are welcome.
Glad I was able to help.