Проверка пустой ячейки Excel или на наличие в ней пробелов

function MyEmp(r as range) as boolean
   MyEmp=(len(replace(r.value," ",""))=0)
end function

MyEmp=trim(r)=""

Function Pystota(a,b,d,h,j)
If IsEmpty(Range("a")) = True Then Pystota= ", пустая ячейка А"
If IsEmpty(Range("b")) = True Then Pystota= ", пустая ячейка B"
If IsEmpty(Range("d")) = True Then Pystota= ", пустая ячейка D"
If IsEmpty(Range("h")) = True Then Pystota= ", пустая ячейка H"
If IsEmpty(Range("j")) = True Then Pystota= ", пустая ячейка J"
If Len(Pystota) Then Pystota= "П" & Mid$(Pystota, 4) Else Pystota= "Все ОК"
End Function

Function Pystota(r As Range)
If Len(r.Cells(1)) = 0 Then Pystota = ", пустая ячейка А"
If Len(r.Cells(2)) = 0 Then Pystota = Pystota & ", пустая ячейка B"
If Len(r.Cells(4)) = 0 Then Pystota = Pystota & ", пустая ячейка D"
If Len(r.Cells(8)) = 0 Then Pystota = Pystota & ", пустая ячейка H"
If Len(r.Cells(10)) = 0 Then Pystota = Pystota & ", пустая ячейка J"
If Len(Pystota) Then Pystota = "П" & Mid$(Pystota, 4) Else Pystota = "Все ОК"
End Function

If Len(r.Cells(1)) = 0 Then Pystota = ", пустая ячейка А" & cell

Function Pystota(r As Range)
Dim x
For Each x In Array(1, 2, 4, 8, 10)
  If Len(r(x)) = 0 Then Pystota = Pystota & ", пустая ячейка " & r(x).Address(0, 0)
Next
If Len(Pystota) Then Pystota = "П" & Mid$(Pystota, 4) Else Pystota = "Все ОК"
End Function