Include Blank Cells in Autofilter that uses an Array as Criteria

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

Thanks for letting us know. So many people don't bother even to say 'thank you' when they've received help, so this is very much appreciated.