Currently I have the following which does the firdt part ... but i would like the B column to match for the message that matches the time in column A..There are likely to be 10 rows of times.
Some help would (as always) be appreciated
Sub Notice()
Sheets("producer").Select
MsgBox Range("ALERTS!A2").Text & vbCr & Range("ALERTS!B2").Value, Buttons:=vbOKOnly, Title:=" Producer Alert"
End Sub
Sub SetAlarms()
Sheets("alerts").Select
Application.Calculate
Dim myCell As Range
For Each myCell In Range("A2", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "Notice"
Next myCell
End Sub
Bookmarks