Multiple Criteria

[BradStoran]

Hi,

I need this code to select multiple criteria, but having real problems.

Please help!

Dim IndustryColumn As Long
Dim foundIndustryColumn As Range
Dim copySheet AsInteger


Set foundIndustryColumn = Sheets("Consolidated Data").Rows(1).Find("Industry")
clientIndustryColumn = foundIndustryColumn.Column

Sheets("NQ +5 DATA").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Davids"
ActiveSheet.Rows(1).AutoFilter _
Field:=Industry, _
Criteria1:=Array( “Healthcare", "Insurance" "Government") _
Operator:=xlFilterValues

 

[Joe4]

Welcome to the Board!

If you use the Macro Recorder, and record yourself setting up a Filter selecting these three values, you will see what your code needs to look like.