Auto close message box after 1 minute

[ste33uka]

Hi i use the following code for a message box, is there anyway it would auto close message box on 1 minute if i have not clicked before then?

Private Sub Worksheet_Message()
Dim Msg As Long
    Dim myRange As Range
    Set myRange = Sheet85.Range("BD1:BD999")
    Dim cell As Range
    For Each cell In myRange
        Evaluate (cell)
        If StrComp(cell, "Yes", vbTextCompare) = 0 Then
        Cells(cell.Row, "BA") = 999999
        AppActivate Application.Caption
            Msg = MsgBox("" & vbCrLf & " " & Range("BG" & cell.Row).Value & vbCrLf & Range("BP" & cell.Row).Value & vbCrLf & Range("BQ" & cell.Row) & Range("BR" & cell.Row).Value, vbExclamation)
        End If
    Next
        Set myRange = Sheet85.Range("BE1:BE999")

    For Each cell In myRange
        Evaluate (cell)
        If StrComp(cell, "Yes", vbTextCompare) = 0 Then
        Cells(cell.Row, "BC") = 999999
        AppActivate Application.Caption
            Msg = MsgBox("" & vbCrLf & " " & Range("BG" & cell.Row).Value & vbCrLf & Range("BP" & cell.Row).Value & vbCrLf & Range("BQ" & cell.Row) & Range("BR" & cell.Row).Value, vbExclamation)
           
        End If
    Next                 
    End Sub

 

[6StringJazzer]

so i can delete "Evaluate (cell)"

I didn't say to delete it. The most important question is why is it there in the first place?

I'll see if I can figure out how to run your code (hard to do without your file) and provide more detailed feedback.

 

[ste33uka]

I didn't say to delete it. The most important question is why is it there in the first place?

I'll see if I can figure out how to run your code (hard to do without your file) and provide more detailed feedback.

yes i agree it didnt need to be there , not sure how much more detail i can give .
Thanks for your help on this