Welcher Makro-Code schont PC-Ressourcen mehr?

Function SaveVar(Name As String, Item As String)
ThisWorkbook.Names.Add Name:=Name, RefersTo:=Item
ThisWorkbook.Names(Name).Visible = False
End Function

'Lösung 1
Function ReadVar(Name As String)
ReadVar = Split(ThisWorkbook.Names(Name).Value, """")(1)
End Function
'Lösung 2
Function ReadVar(Name As String)
ReadVar = ThisWorkbook.Names(Name).Value
ReadVar = Mid(ReadVar, 3, Len(ReadVar) - 3)
End Function