Function ChangeColor(ByVal sTeam As String) As String

Dim sColor As String

Select Case sTeam

...

I have added all the custom code functions onto an external class and simply reference the class on all my reports and use whatever function I need, if changes are...