Public Sub ok()
ThisWorkbook.Names(“inputs”).Delete
End Sub
Public Sub ok2()
‘ThisWorkbook.Names(“inputs”).Delete
Dim rng As Range
Set rng = ThisWorkbook.Worksheets(“Sheet1”).Range(“D10”)
‘Dim rng2 As Range
‘Set rng2 = ThisWorkbook.Worksheets(“Sheet1”).Range(“E77”)
Dim x As Integer
Dim y As Integer
For x = 1 To 10
‘ThisWorkbook.Names(“Atr” & CStr(x) & “Caption”).Delete
‘ThisWorkbook.Names(“Pro1Atr” & CStr(x)).Delete
‘ThisWorkbook.Names(“Pro2Atr” & CStr(x)).Delete
‘ThisWorkbook.Names(“Pro3Atr” & CStr(x)).Delete
‘ThisWorkbook.Names(“BasePro1Atr” & CStr(x)).Delete
‘ThisWorkbook.Names(“BasePro2Atr” & CStr(x)).Delete
‘ThisWorkbook.Names(“BasePro3Atr” & CStr(x)).Delete
rng.Offset(x - 1, -1).Name = “Atr” & CStr(x) & “Caption”
rng.Offset(x - 1, 0).Name = “Pro1Atr” & CStr(x)
rng.Offset(x - 1, 3).Name = “Pro2Atr” & CStr(x)
rng.Offset(x - 1, 6).Name = “Pro3Atr” & CStr(x)
‘rng2.Offset(x - 1, 0).Name = “BasePro1Atr” & CStr(x)
‘rng2.Offset(x - 1, 3).Name = “BasePro2Atr” & CStr(x)
‘rng2.Offset(x - 1, 6).Name = “BasePro3Atr” & CStr(x)
Next x
End Sub
