Macro to find a number

[harshab6]

Hi,

I need a macro to pick a number from cell R20 go sheet name data find that number and if number is found give a msg box as number found.

Thanks and Regards,

Harsha

 

[FormR]

Hi, try:

Sub m()
Dim r As Range
Set r = Sheets("Data").Cells.Find(Range("R20").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not r Is Nothing Then
    MsgBox "Number Found"
        Else
    MsgBox "Number Not found"
End If
End Sub

 

[harshab6]

Hi FormR ,

Thanks for the Reply.I should have been bit specific.There are 2 sheets in my workbook summary sheet and data sheet.I want the macro which should pick the number from cell R20 and find the same in Data sheet and display a msg number found.

Thanks and Regards,
Harsha

 

[FormR]

Sub m()
Dim r As Range
Set r = Sheets("Data").Cells.Find(Sheets("Summary").Range("R20").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not r Is Nothing Then
    MsgBox "Number Found"
        Else
    MsgBox "Number Not found"
End If
End Sub

 

[harshab6]

Awesome, Superb Thanks for the Help