Creating Search Macro

Hi,

I am writing a macro to search the range A1:A70 on all worksheets in a workbook. The macro will pull up an input box for a user to type in a part number and should find the location of the part number in its corresponding worksheet.

The code I have so far looks like this...
--

Sub Search_v2()
'
' Search_v2 Macro
' Macro recorded 7/9/2009 by MGD
'

'
SearchValue = InputBox("Enter a p/n to search. NOTE: Base numbers may be in use.", "Component Search")

With Worksheets("1995128-002").Range("a3:a70")
    Set c = .Find(SearchValue, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(SearchValue, LookIn:=xlValues)
            
      End If
      
End With
          
End Sub

--

Does any of this look correct at all? I'd really appreciate the help. Thanks.