VB display cell value offset active cell

VB display cell value offset active cell

I'm trying to display the value of a cell according to my ActiveCell or
Target Cell using a Fonction. The cell I'm trying to display is in the
same spreadsheet.
My objectif is to create a Header in the spreadsheet that would display
information according to the position of the Active cell.
I've tried this code and typed the fonction =VendorName5() in the cell
were I want the value to be displayed but seems to be missing something.
Can you help ?:



Function VendorName5() As String
Name = ActiveCell.Offset(0, -4)
VendorName5 = Name
End Function