Check If range of cells is empty

I would like to check for condition whether range rng is empty.
I have following code, but it prints "Not Empty" even though that the cells in the range rng are empty.
Can you please hellp me?

Sub testo()
Set rng = Range(Cells(1, 1), Cells(1, 100))
If IsEmpty(rng) = True Then
Debug.Print "Is empty"
Else
Debug.Print "Not empty"
End If
End Sub