Показать формулу ячейки, когда ячейка выбрана

Question

привет, я работаю над кодом vba, который сместит значение ячейки с уравнением = C4 (строка SO qty) * 5 (значение поиска в спецификации), это часть кода

        'Enter lookup BOM qty into cell * SO Qty
        Cells(LoopRow, LoopColumn).Value = ActiveWorkbook.Worksheets("SuperBOM").Cells(FoundRow, FoundColumn).Value * Cells(2, LoopColumn).Value 

из этого я могу получить значение в каждой ячейке с помощью vlookup, однако уравнение ячейки не может быть отображено, когда я выбрал ячейки, на которые я хотел посмотреть, есть ли другие способы, где я Можно изменить код, чтобы при выборе ячейки отображалось уравнение, а не только значения. Большое вам спасибо

Sub Button1_Click()
Worksheets("Sheet1").Activate
Dim LastRow, LastColumn, LoopRow, LoopColumn As Integer
Dim SearchItemPN, SearchFGIPN, LastColumnName As String

Dim FoundRow, FoundColumn As Double


LastRow = Cells(Rows.Count, 1).End(xlUp).Row


LastColumn = Cells(3, Columns.Count).End(xlToLeft).Column

LastColumnName = "Total Requirement"


If (Cells(3, LastColumn).Value = LastColumnName) Then
    Columns(LastColumn).EntireColumn.Delete

    'decrement by 1
    LastColumn = LastColumn - 1
End If


Cells(3, LastColumn + 1).Value = LastColumnName


For LoopRow = 4 To LastRow
    SearchItemPN = Cells(LoopRow, 1).Value


    FoundRow = Application.WorksheetFunction.Match(SearchItemPN, Worksheets("SUPERBOM").Columns(1), 0)




    For LoopColumn = 3 To LastColumn

        SearchFGIPN = Cells(3, LoopColumn).Value




        If (SearchFGIPN <> LastColumnName) Then

            FoundColumn = Application.WorksheetFunction.Match(SearchFGIPN, Worksheets("SUPERBOM").Rows(1), 0)

       End If


        Cells(LoopRow, LoopColumn).Value = ActiveWorkbook.Worksheets("SuperBOM").Cells(FoundRow, FoundColumn).Value * Cells(2, LoopColumn).Value

    Next LoopColumn


Cells(LoopRow, LastColumn + 1).Value = Application.WorksheetFunction.Sum(Range(Cells(LoopRow, 2).Address, Cells(LoopRow, LastColumn).Address))

Next LoopRow

end sub