Вы можете использовать гиперссылки следующим образом:
=HYPERLINK("#tester()"," ")
Просто есть пустой отображаемый текст, и вы можете удалить форматирование подчеркивания.
Ссылки вызывают эту функцию
'in a regular module
Function tester()
ActiveSheet.Range("A3:A17").Interior.Color = vbYellow '<< clear rest of range
Selection.Interior.Color = vbRed '<< set the clicked cell
Set tester = Selection '<< must return a range
End Function