Message Box to show expiry dates, when work book opens up

[chiswickbridge]

Hi Guys,


I have a database with Passport and License Details, with expiry dates.
I have conditional Formatting in a certain column to show the dates that are about to expire within the next 15 or 30 days.


And cells A1 in both sheet show ALARM or NONE to indicate that there are some expiry dates close to my criterea by using Today()+30 or 15.


But the Workbook has 100 sheets and at times I forget to access these pages.




Cell A1 in Sheet1 and Cell A1 in Sheet2, have a value either ALARM or NONE.


Need a VBA when WorkbookOpens, to show a message box with the following message :


Sheet1 has ALARM
Sheet2 has NONE or


Sheet1 has NONE
Sheet2 has ALARM or any combination.


The message box to contain just a OK button to acknowledge.


And the Workbook opens to default sheet1


I can later tweak it to add more sheets...


Any help...

 

[mumps]

Try this macro in the code module for ThisWorkbook:

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Dim msg As String
    Dim ws As Worksheet
    For Each ws In Sheets
        msg = msg & Chr(10) & ws.Name & " has " & CStr(ws.Range("A1"))
    Next ws
    Application.ScreenUpdating = True
    MsgBox msg
End Sub

 

[chiswickbridge]

Thank MUMPS.... Great...

However one request....

Is it possible that I create one Worksheet called Alarm_Records, and starting from Cells A1 to A100....the cell value gets the data instead of the Flash Screen and the workbook open to this Worksheet Alarm_Records. The Alarm data gets erased and fresh data is input the next time I open the Workbook

 

[mumps]

Try:

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Sheets("Alarm_Records").Range("A2:A" & Sheets("Alarm_Records").Range("A" & Sheets("Alarm_Records").Rows.Count).End(xlUp).Row).ClearContents
    Sheets("Alarm_Records").Range("A1") = "Alarm Records"
    For Each ws In Sheets
        If ws.Name <> "Alarm_Records" Then
            Sheets("Alarm_Records").Cells(Sheets("Alarm_Records").Rows.Count, "A").End(xlUp).Offset(1, 0) = ws.Name & " has " & CStr(ws.Range("A1"))
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[chiswickbridge]

Great MUMPS... THANK you very much.....A load off my back...

 

[mumps]

You are very welcome.