VBA indsætte formel i celle

Dim antalRæk, antalKol
Sub findBold()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    For Each c In Range(Cells(1, 1), Cells(antalRæk, antalKol))
        If c.Font.Bold = True Then
            c.Select
            ActiveCell.Offset(columnoffset:=-2).Activate
            ActiveCell.Formula = "= " & c.Address
        End If
    Next
End Sub

Super!!!

Tak - så kan vi vel afslutte