Macro to filter a column with multiple names

[tonywatsonhelp]

Hi Everyone,
I thought this would be easy but i having problems,

All i want to do is filter Column D so it only shows me these names
Tom
Robin
Dave
Sue
Lenny
Barry

can someone please give me the vba code to do this

Thanks
Tony

 

[lrobbo314]

Sub FilterNames()
nFilter = Array("Tom", "Robin", "Dave", "Sue", "Lenny", "Barry")
Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row).AutoFilter 1, nFilter, xlFilterValues
End Sub

 

[EFANYoutube]

Hi Again
Hope all is well

    If Sheets("Sheet1").FilterMode Then Sheets("Sheet1").ShowAllData
    Sheets("Sheet1").Range("$D$1:$D$32").AutoFilter Field:=1, Criteria1:=Array("Tom", "Robin", "Dave", "Sue", "Lenny", "Barry"), Operator:=xlFilterValues

 

[tonywatsonhelp]

Hello Efan, I feel i would be lost without you this week
thank you again for a great bit of code,

A big thank you to Irobbo as well, very much apreciated
Tony