получение ошибки «определено приложением или определено объектом»

Question

Я пытаюсь отобразить все пустые ячейки "***"

Function test()
Dim rng As Range, cell_ As Range

Set rng = Range("D1,AL367")
For Each cell_ In rng
    If IsEmpty(cell_) Then
        Sheets("DailyMean Report").Range(cell_) = "***"
    End If
Next cell_


End Function