Function Prazna(Regija As Range)
Dim Br_polja As Integer
     Br_polja = WorksheetFunction.CountBlank(Regija)
     MsgBox "Prazniih polja u regiji " & Regija.Address & vbCr & Br_polja
     Prazna = Br_polja
End Functio