工作表类的激活方法失败-vlookup-vba

Question

I want to use VLOOKUP command and use a range which is in sheet B (not in the activated one A). Calling the new worksheet gives me an error of " 'runtime error 1004' activate method of worksheet class failed"

Public Sub Creation()

    Worksheets("A").Activate

    Randomize
    Dim code As String
    Dim hamid As Variant
    Dim Lookup_Range As Range
    Code = 100032
    Set Lookup_Range = Worksheets("B").Range("O1:P8")
    On Error Resume Next
    hamid = Application.WorksheetFunction.VLookup(code, Lookup_Range, 2, False)
    On Error GoTo 0

End sub

I have tried using With command to call the new worksheet but I was not successful. I am new to VBA so please bear with me.

Answer 1

Your lookup range seems to be in worksheet B. Try activating worksheet B before using the lookup function. I've encountered issues trying to define ranges on one worksheet while having another activated:

Public Sub Creation()

Worksheets("A").Activate

Randomize
Dim code As String
Dim hamid As Variant
Dim Lookup_Range As Range
code = 100032
'Try here:
Worksheets("B").Activate
Set Lookup_Range = Worksheets("B").Range("O1:P8")
On Error Resume Next
'or here:
Worksheets("B").Activate
hamid = Application.WorksheetFunction.VLookup(code, Lookup_Range, 2, False)
On Error GoTo 0
'also made 'Code' in lookup function 'code'.
End Sub