Msgbox Sheet 2 only when 2 conditions met in sheet 1

[Ironman]

Hi

The below code creates a message box that runs every time Sheet 'Calculators' is activated.

Private Sub Worksheet_Activate()

ActiveWindow.DisplayHeadings = False

Range("G26").Select
MsgBox "Enter temperature (ºF) from connect.garmin.com/modern", vbInformation, "Garmin.com Temperature (F) Conversion"
Application.Calculation = xlCalculationAutomatic
End Sub

I'd be grateful if the above code could be modified so it only runs when both of the below conditions are met:

1. Col A of the last row in sheet 'Training Log' contains today's date and
2. Col B of the same row in that sheet does not contain any of these text strings (within the commas): "OTHER (IB)", "OTHER (OB)", "OTHER (W)", "OTHER (T)", "REST", ""

Many thanks!

 

[JoeMo]

Do you really want the null string ("") in the list of text strings? A blank cell will meet the condition .Value = ""

 

[Ironman]

Hi Joe - thinking about it, yes you're quite right, forget that please, thanks for pointing that out.

 

[JoeMo]

Try This:

Private Sub Worksheet_Activate()
Dim Lrw As Long, Textstrs As Variant
Lrw = Sheets("Training Log").Cells(Rows.Count, "A").End(xlUp).Row
Textstrs = Array("OTHER (IB)", "OTHER (OB)", "OTHER (W)", "OTHER (T)", "REST")
With Sheets("Training Log")
    If .Cells(Lrw, "A").Value2 <> Date Then Exit Sub
    For i = LBound(Textstrs) To UBound(Textstrs)
        If .Cells(Lrw, "B").Value Like "*" & Textstrs(i) & "*" Then Exit Sub
    Next i
End With
ActiveWindow.DisplayHeadings = False
Range("G26").Select
MsgBox "Enter temperature (ºF) from connect.garmin.com/modern", vbInformation, "Garmin.com Temperature (F) Conversion"
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Ironman]

That works perfectly! Thanks ever so much once again Joe!

 

[JoeMo]

That works perfectly! Thanks ever so much once again Joe!

You are welcome - thanks for the reply.