Tak už to z větší části mám, ale nechci vybírat data z aktivního listu nábrž z jiného ale stále mi to bere z aktivního, nevíte jak to upravit aby to bralo z jiného?

Děkuji


Sub díly()

Dim rngVis As Range
Dim VisCell As Range
Dim sFind As String

sFind = InputBox("Naskenujte zákaznické číslo.")

If Len(Trim(sFind)) = 0 Then Exit Sub 'Pressed cancel

Application.ScreenUpdating = False
With Intersect(Sheets("Díly").UsedRange, Sheets("Díly").Columns("A"))
.AutoFilter 1, sFind
On Error Resume Next
Set rngVis = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
.AutoFilter
End With
Application.ScreenUpdating = True

If rngVis Is Nothing Then
MsgBox sFind & " Nenalezeno."
Else
For Each VisCell In rngVis.Cells
MsgBox "Naskenované číslo: " & VisCell.Sheets("Díly").Cells(VisCell.Row, "A").Text & vbNewLine & _
"Vyhledáno: " & VisCell.Sheets("Díly").Cells(VisCell.Row, "B").Text
Next VisCell
End If

End Sub