[.Quattro.]

Попробуйте сделать в ячейке гиперссылку и использовать следующий вариант открытия Nav из VB:

Sub RunNav()
Excel.ActiveSheet.Range("A1").Hyperlinks(1).Follow
End Sub