Não salvar caso em uma seleção seja identificado célula vazia

Possuo uma planilha onde varios campos são obrigatórios, e caso não sejam preenchidos não permitir salvar.
O maior problema é que essa validação das células em branco pode estar desde a célula B1, da planilha Cargas até a coluna H1, a quantidade de linhas vai depender da ultima célula preenchida na coluna B.

Montei a macro abaixo, porém apresenta erro:
____________________________________________________________________________________________
'Para o caso de tentar fechar a planilha

Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheet("CARGA").Range("A1").End(xlDown).End(xlToRight).Select = "" Then
MsgBox "Campos em Branco!"
Cancel = True
Exit Sub
Else
End If
End Sub

____________________________________________________________________________________________
'Para o caso de tentar salvar a planilha

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheet("CARGA").Range("A1").End(xlDown).End(xlToRight).Select = "" Then
MsgBox "Campos em Branco!"
Cancel = True
Exit Sub
Else
End If
End Sub