Delete rows if columns are blank

Hi and thanks in advance.

I need some VBA that will delete rows on a sheet based on user selection from a form listbox.

If the user selects one or more columns from the listbox then I want to delete the rows on the active sheet that have blank cells in those columns.

So if the user selects columns A, E, F and a row has blanks in all three of those columns, then I want to delete it.

I currently have this code with removes rows that are completely blank ...

For i = TheRange.Rows.Count To 1 Step -1
   If WorksheetFunction.CountA(TheRange.Rows(i)) = 0 Then
      TheRange.Rows(i).EntireRow.Delete
   End If
Next i

thanks
Deutz