Hi,
I have this code below that works fine when the file is opened.
It is going to be part of a form I have for monthly checks.
Private Sub Workbook_Open()
If Application.CountA(Sheets("Sheet2").Range("D23:BM23")) = 0 Then MsgBox "Range is blank"
End Sub
I was wondering if there was a way...