Gostaria de Adicionar a Pesquisa à outras planilhas. no código abaixo (Código do Botão Pesquisar) está somente e a Plan1, só que estou com mais 14 plan, ou seja, da plan1 a plan15, Como faço pra Pesquisar nas demais ???
Private Sub btnpesquisar_Click()
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=1, Criteria1:="=*" & Me.txtprocesso.Value & "*"
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=2, Criteria1:="=*" & Me.txtnome.Value & "*"
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=3, Criteria1:="=*" & Me.txtcpf.Value & "*"
ActiveSheet.Range("$A$1:$J$616").AutoFilter Field:=5, Criteria1:="=*" & Me.txtcidade.Value & "*"
ListView1.ListItems.Clear
Sheets("Plan1").Select
lin = 2
Do Until Sheets("Plan1").Cells(lin, 1) = ""
If Cells(lin, 1).Rows.Hidden = False Then
Set li = ListView1.ListItems.Add(Text:=Sheets("Plan1").Cells(lin, 1).Value)
li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 2).Value
li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 3).Value
li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 5).Value
li.ListSubItems.Add Text:=Sheets("Plan1").Cells(lin, 10).Value
End If
lin = lin + 1
Loop
End Sub