message box yes no macro

[VbaHell]

Hello all
A member of the Excel forum kindly helped with this code and I want to expand it to saying.

Number of supplier email missing
Proceed Yes or No
if yes then action my code
if no then end function

With Sheets("Data")
        LastRow = .Range("B" & Rows.Count).End(xlUp).Row
        Set rng = .Range("AA2:AA" & LastRow).SpecialCells(xlCellTypeBlanks)
    End With
    MsgBox "Number of Supplier Emails missing: " & rng.Count

 

[Fluff]

How about

With Sheets("Data")
        lastrow = .Range("B" & Rows.count).End(xlUp).Row
        Set Rng = .Range("AA2:AA" & lastrow).SpecialCells(xlCellTypeBlanks)
    End With
    If MsgBox("Number of Supplier Emails missing: " & Rng.count, vbYesNo) = vbNo Then Exit Sub

 

[VbaHell]

works great, thanks Fluff

 

[Fluff]

You're welcome