Provavelmente um erro bobo em VBA

[qqguilhermepp]

            Dim posicao As Range
            Set posicao = ActiveDocument.Hyperlinks(i).Range
            
            ' Adiciona a nota de rodapé
            ActiveDocument.Footnotes.Add Range:=posicao, _
            Text:=dicio(CStr(agora))

 Estou obtendo um erro de "tipos incompatíveis". Ocorre que o método "add" exige um objeto do tipo "range" em seu parâmetro, o que é exatamente o que estou colocando.

Alguém poderia me iluminar em que estou errando?

[Alyson Ronnan Martins]

Boa tarde @qqguilhermepp, precisaria um pouco mais do código ou contexto para te ajudar nesse problema ai.