Use True literal in If statement
Sub TestIsTrue() Dim blnIsTrue As Boolean blnIsTrue = 2 If blnIsTrue = True Then MsgBox "True" End If End Sub