Для этого в пользовательской функции необходимо использовать метод Volatile объекта Application, например:
Function TemplatePath()
Application.Volatile True
TemplatePath = "Шаблоны находятся здесь : " & _
Application.TemplatesPath & " [" & Now & "] "
End Function