Correcting Debug '424 Error'

[bsmith579]

I created the following code below and attached it to a button allowing me to enter a number into Cell A3, click my button and it displays the needed information from another worksheet. Overall it works, but I continue to get a "Run-Time error'424'" msg. What am I missing?

Sub ShowDispo()

Dim Res As Variant
Dim Hold As Range
Set Hold = Range("A3")
Set InitialRange = Sheets("Hold").Range("H:J")
Res = Activate.Vlookup(Hold, InitialRange, 3, True).Value

End Sub

 

[bsmith579]

Piecing together all suggestions, I believe I have what I am looking for.
Thanks for the help!

Sub Test1()
Dim Result As Variant
Dim myVal As Range
Dim Rng As Range
Dim Dispo As Variant

Set myVal = Range("A3")
Set Rng = Sheets("945 Holds").Range("H:J")
Set Dispo = Range("B2")

Result = Application.VLookup(myVal, Rng, 3, False)

If Not IsError(Result) Then
Dispo.Value = Result
End If

If IsError(Result) Then
MsgBox "Number Not Found"
End If

End Sub

 

[Jonmo1]

The last bit can be combined into 1 IF...

If Not IsError(Result) Then
    Dispo.Value = Result
Else
    MsgBox "Number Not Found"
End If