Thanks to all who answered. I'll try the solutions soon!

Regards,
--
Beto

"Peter Atherton" wrote in message ...
Hello Beto

A similar solution to Tom's is:

Sub MyIndirect()
Dim Cell As Range
Dim s As String
If ActiveCell.HasFormula = False Then
MsgBox "There is no formula in this cell", , "Error_
Alert"
Exit Sub
Else: s = "" & ActiveCell.Formula & ""
Range(s).Select
End If
End Sub