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?
VBA Code:
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
Last edited: