Help If cell contains certain text run macro if not message box

[1nk3d]

I have a macro for a workbook, I will post the beginning of the code below. We have a selection sheet (Home) What I need is for if cell G9 on Home says select, a message box to pop up and end, if G9 contains any other text, resume the macro below.

Sub PWSub()
    If (Now() - Int(Now()) < TimeValue("6:30:00")) Then
        MsgBox "You are attempting to pull the data too early.  Data is not available until after 6:30"
        ElseIf (Now() - Int(Now()) > TimeValue("19:30:00")) Then
        MsgBox "Data needs to be pulled before 11:00 AM daily. Try again tomorrow"
    Else
        OpenPrevWeek
    End If
End Sub

 

[JLGWhiz]

Sub PWSub2()
    If LCase(Sheets("Home").Range("G9").Text) = "select" Then
        MsgBox "Procedure will now terminate."
        Exit Sub
    ElseIf Sheets("Home").Range("G9") <> "" Then
        If (Now() - Int(Now()) < TimeValue("6:30:00")) Then
            MsgBox "You are attempting to pull the data too early.  Data is not available until after 6:30"
        ElseIf (Now() - Int(Now()) > TimeValue("19:30:00")) Then
            MsgBox "Data needs to be pulled before 11:00 AM daily. Try again tomorrow"
        Else
            OpenPrevWeek
        End If
    End If
End Sub

 

[1nk3d]

perfect! Thank you

 

[JLGWhiz]

perfect! Thank you

You're welcome,
regards, JLG