Option Explicit Dim oWB As Workbook '----------------------------- Private Sub Class_Initialize() Set oWB = Workbooks.Open("P0040" & "Config.XLSX") Dim oRng As Range Set oRng = oWB.Sheets(1).Range("A1").CurrentRegion Dim oName As Name For Each oName In Names oName.Delete Next oRng.CreateNames False, True, False, False End Sub '-------------------------------------------- Public Function uValue(cConfigName As String) uValue = oWB.Sheets(1).Range(cConfigName) End Function '-------------------------------------- Public Sub setValue(cConfigName, uValue) oWB.Sheets(1).Range(cConfigName) = uValue End Sub '---------------------------- Private Sub Class_Terminate() oWB.Close False Set oWB = Nothing End Sub