VBA Message Box if Cell Blank

[srj1359]

Hello there!

Can someone please help me create a VBA code for a message box to appear if cell O16 has been left blank?

This is part of a larger macro to transfer data from the tab "Pricing Sheet" onto a tab called "Quote Summary" so I am wanting to put this coding at the very beginning and then if cell O16 is blank, the macro stops, and if it is not blank, it can proceed and copy all data as it is supposed to.

Thank you in advance!!

Here is what I have right now:

'message box for blank start date
With Sheets("Pricing Sheet")
If .Range("O16") = "" Then
.Select
.Range("O16").Select
MsgBox "Please enter the start date in cell O16"
Cancel = True
End If
End With

 

[Michael M]

Maybe something like

With Sheets("Pricing Sheet")
If .Range("O16") = "" Then
MsgBox "Please enter the start date in cell O16"
Sheets("Pricing Sheet").Activate
.Range("O16").Select
End If
End With

 

[Michael M]

Typo

Sub MM1()
With Sheets("Pricing Sheet")
    If .Range("O16") = "" Then
        MsgBox "Please enter the start date in cell O16"
        .Activate
        .Range("O16").Select
    End If
End With
End Sub

 

[srj1359]

@Michael M thank you very much for your quick reply!

The message box is appearing as it should, but it's not halting the entire VBA at that point if the cell is blank. Is that possible to do?

 

[Michael M]

Ok, sorry...
But keep in mind, if you have any disableevents = false OR sceenupdating =false they need to be returned to TRUE before the Exit Sub line

Sub MM1()
With Sheets("Pricing Sheet")
    If .Range("O16") = "" Then
        MsgBox "Please enter the start date in cell O16"
        .Activate
        .Range("O16").Select
       Exit Sub
    End If
End With
End Sub

 

[srj1359]

@Michael M thank you very much -- that worked perfectly!

 

[Michael M]

Glad to help...