Public newXLAppArr(1 To 10) As Variant


Public Sub creatNewVAR(ByVal varnum)
    FilePathh = ThisWorkbook.path &  "\VAR_" & varnum& ".xlsm"
    ThisWorkbook.SaveCopyAs filename:=FilePathh
    If Dir(FilePathh) <> "" Then
    
        Set newXLAppArr(varnum) = New Excel.Application
        With newXLAppArr(varnum)
            .Workbooks.Open FilePathh
            .WindowState = xlMaximized
            .Visible = True
        End With
        
        newXLAppArr(varnum).Application.Run "RunTestMacros"
        
    End If
End Sub

...

for i=1 to 10
 call creatNewVAR(i)
next 

Select Case a
      Case 1
   p=1          
      Case 2
   p=2   
End Select

ListBox&p.additem("test")

Public Sub convert()
Dim aseries As Series
Dim achart As Chart

Set achart = ActiveSheet.ChartObjects(1).Chart
For Each aseries In achart.SeriesCollection
aseries.Values = aseries.Values
aseries.XValues = aseries.XValues
aseries.Name = aseries.Name
Next aseries
End Sub

For t1 = gran(1, 1) To gran(1, 2)
 For t2 = gran(2, 1) To gran(2, 2)
  For t3 = gran(3, 1) To gran(3, 2)
   For t4 = gran(4, 1) To gran(4, 2)
    For t5 = gran(5, 1) To gran(5, 2)
     For t6 = gran(6, 1) To gran(6, 2)
      posy = posy + 1
      sh1.Cells(posy, posx) = t1
      sh1.Cells(posy, posx + 1) = t2
      sh1.Cells(posy, posx + 2) = t3
      sh1.Cells(posy, posx + 3) = t4
      sh1.Cells(posy, posx + 4) = t5
      sh1.Cells(posy, posx + 5) = t6      
     Next t6
    Next t5
   Next t4
  Next t3
 Next t2
Next t1