Testing for Empty Cells

[ptmuldoon]

This has likely been asked before, and I'm trying to learn and get this right, but struggling with. In my various spreadsheets I have if statements that often show a "Blank" with something like this"

=IF(F7=0,"","Not Blank")

Now I'm trying to create a customfunction that will search a range, and then tell me either Yes or No if all of the cells are truly blank, no formula's, etc.

I think this is close, yet it keeps returning a 0 for an answer?

Function IsEmpty(List As Range) As Double
    Dim Cell As Variant
    
    For Each Cell In List
        If Not Cell Is Nothing Then
            ActiveCell.Value = "Yes"
            Exit Function
        Else
            ActiveCell.Value = "No"
        End If
    Next Cell
End Function