try this (add it to the code of the workbook object... it will take the reference value and put it onto every sheet you add or any existing one that you select...
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range("ba37") = Sheets("source_sheet_name").Range("ba41")
End Sub