Facing problem with debuging vba code for vlookup

[amber_skanpur]

Hi Folks,

I was trying to execute a code for vlookup.

It isn't working though

Can you help me with a solution?

Pls refer attachment for getting further clarity.

The code is placed below for your reference.
-------------------------------------------------------------------------------------------------------------------------------------------------------
Sub vlookup4()


Dim myfilename As Variant
Dim mysheetname As Variant
Dim myrangename As String
Dim c As String

Workbooks("Book10.xlsm").Sheets("sheet1").Activate
myfilename = ActiveWorkbook.Name
mysheetname = ActiveSheet.Name
Worksheets("sheet1").Range("b2:E930").Select
myrangename = Selection.Address

c = Worksheets("sheet4").Range("b2").Value
Workbooks("Book10.xlsm").Sheets("sheet4").Activate

Range("g2").Formula = "=vlookup(" & c & ",[" & myfilename & "]" & mysheetname & "!" & myrangename & ",4,0)"
Range("g2") = Range("g2")
End Sub
---------------------------------------------------------------------------------------------------------------------
Thanks in advance