Hi,

I have a spreadsheet with 4 sheets (Sheet 1,2,3 and
Total). I have written this code which will look at Sheet
1 and autofilter by the name I have entered in my Input
Box.

Dim Name1 As String
Name1 = InputBox("Please Enter Name: ", "name1")
Sheets("Sheet1").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Name1
End Sub

What I want is code that when I can put a name in my Input
Box. It will search Sheet1, Sheet2, Sheet3 and copy any
rows that have that name in to the totals sheet.