lookup

i want a macro to search all of column A in multiple sheets for a date that has been put into an input box.

the matching dates have data corresponding to them in that row. i want the date and data from the row to then be copied into a new sheet.

Dim Input1 As String

Input1 = InputBox("Please Enter Date as DD/MM/YYYY")

vlookup(Input1, Production!(A3:A3000),1:7,False)

this is what i have so far.

1:7 returns columns 1:7?
where do i specify where i want the data to be shown and do i need to write multiple lookup statements to search through the A columns in all the different sheets or can i get it to look in all of them at once?