I tried this and received this error message:

Run-time error '424':

Object Required

The code I used:

Sub CollectionEmptyTry()
Dim Obj As String
Obj = Range("P17").Value

If Cells(1, 1) <> "" Then
CheckEmpty.Add Obj
End If

Set CheckEmpty = Empty 'generates error

MsgBox CheckEmpty.Count

End Sub