HI

Iget code in site Dave (http://www.davesexcel.com/vbacodes.htm#363404515)

But i need find one value in column A and anothe value in column B

How i make a code to find values in two columns?
Date - Hours
05/08/2013 - 08:50
06/08/2013 - 07:30
07/08/2013 - 09:35
08/08/2013 - 06:50
09/08/2013 - 07:41
10/08/2013 - 10:35
11/08/2013 - 12:50
12/08/2013 - 09:33
13/08/2013 - 09:35
14/08/2013 - 08:50

Sub FindValue()

'This example Loops through Column"A", and searches for
'a value selected from the input box and diplays the address with a MsgBox
'Author:Dave
'http://www.davesexcel.com/vbacodes.htm#363404515
    Dim r As Range
    Dim c As Range
    Dim s As String
    Dim ms As String
    Set r = Range("A1", Range("A65536").End(xlUp))
    ms = "The Value was found at  "
    s = InputBox("Enter Value to Find", "Hello", "Enter Number Here")

    For Each c In r.Cells
        If c = s Then MsgBox ms & c.Address
    Next c

End Sub