Include Blank Cells in Autofilter that uses an Array as Criteria

[JimmyA]

Hello

I hope someone can help. It feels like it should be really straighforward but its driving me mad.

I have an autofilter that is working fine using an array but I want to include "(Blanks)" and this is where I am having trouble. I have tried listing it as Criteria2, I have tried adding it to the array, I have tried having a blank cell in the range I use to create the array but nothing seems to work.

This is what I have so far.

Dim DealArray As Variant

DealArray = Sheets("Sheet1").Range("A2:A15").Value

On Error Resume Next
ActiveSheet.ShowAllData
ActiveSheet.AutoFilterMode = False
On Error GoTo 0

DealArray = Application.Transpose(DealArray)

ActiveSheet.Range("$A$1:$AZ$936").AutoFilter Field:=1, Criteria1:=DealArray, Operator:=xlFilterValues

Does anyone know what I can add to or change about the above code to include blanks?

Thanks in advance for any help

Cheers

Jim