use IsNull function to check
Sub CompareNulls2() Dim varValue1 As Variant Dim varValue2 As Variant varValue1 = Null varValue2 = Null If IsNull(varValue1) And IsNull(varValue2) Then Debug.Print "Both variables are Null" End If End Sub