Переменной присвоено имя листа, как указать в формуле ссылку на ячейку этого листа.
Dim Имя_листа As String
Имя_листа = ActiveWorkbook.Sheet("Лист1").Range("B2")
ActiveSheet.Name = Имя_листа
Sheets("Лист2").Select
Range("B8").Select
ActiveCell.Value = "='[Имя_листа]'!G2"