Pop-up verhindern, wenn Wert> 0 ist

Ich habe eine printingtaste mit folgendem Code: –

Private Sub CommandButtonPrint_Click() MsgBox "Have you Completed the Email Address Field?", vbInformation response = MsgBox("Do you really want to print?", vbOKCancel) If response = vbCancel Then Exit Sub Sheets("New").PrintOut copies:=1, Collate:=True Range("newused").Select End Sub 

Das funktioniert gut, aber was muss ich hinzufügen, um das erste Meldungsfeld zu verhindern "Haben Sie das E-Mail-Adressfeld ausgefüllt?" erscheint, wenn das Feld für die E-Mail-Adresse bereits ausgefüllt wurde. Wenn es schon fertig ist, möchte ich nur das zweite Meldungsfeld "Willst du wirklich drucken?" Auftauchen

   

Wenn Sie nach etwas suchen, müssen Sie nur prüfen, ob die Zelle leer ist. Lass mich wissen, ob das funktioniert

 Private Sub CommandButtonPrint_Click() Set rRng = Sheet1.Range("A10") 'Change to cell to email cell if IsEmpty(rRng.Value) then MsgBox "Have you Completed the Email Address Field?", vbInformation End If response = MsgBox("Do you really want to print?", vbOKCancel) If response = vbCancel Then Exit Sub Sheets("New").PrintOut copies:=1, Collate:=True Range("newused").Select End Sub