VBA - prüfen vor dem Speichern

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Artikel As Range
For Each Artikel In Worksheets("import_ama").Range("A2:A1000")
If Artikel  "" And Artikel.Offset(0, 1) = "" Then
MsgBox "Es fehlen die EK-Preise in Spalte AB!"
Cancel = True
Exit For
End If
Next Artikel
End Sub