工作簿。活化在选择范围后不工作

Question

我编写了一个简单的VBA代码来自动编写Vlookup公式。测试代码后，我注意到当我从其他工作簿中选择范围时，它无法正常工作。它创建了视图的Vookup公式，但不会切换到初始工作簿。它一直专注于我用来选择一个范围的工作簿。正如我在调试时注意到的那样，它参考了正确的工作簿和工作表，但由于某种原因，它不会改变焦点。

如果有人有任何想法，我会很感激。谢谢。

Sub vlookup_easy()


Dim Rng As Range
Dim shOriginal As String
Dim wbOriginal As String


Dim frmWS As String
Dim frmWb As String
Dim sRange As String
Dim iColumn As Integer

shOriginal = ActiveSheet.Name
wbOriginal = ActiveWorkbook.Name

Set Rng = Application.InputBox(Prompt:="Unestie Range za Vlookup formulu", Title:="Vlookup", Default:=Selection.Address, Type:=8)

sRange = Rng.Address
frmWS = Rng.Parent.Name
frmWb = Rng.Parent.Parent.Name

iColumn = Application.InputBox(Prompt:="Unestie indeks kolone za Vlookup formulu", Title:="Vlookup", Default:=2, Type:=1)

ActiveCell.Formula = "=VLOOKUP(" & ActiveCell.Offset(0, -1).Address(False, False) & ",'[" & frmWb & "]" & frmWS & "'!" & sRange & "," & iColumn & ",FALSE)"

Workbooks(wbOriginal).Sheets(shOriginal).Activate  'this part is not working correctly


End Sub