Sub Target_write_wide(depth As Integer)
 'Debug.Print "Target write depth = "; depth; "Targetvalues" & TargetValues(depth)
Dim l As Integer
Dim TargetValueslist() As String
TargetValueslist = Split(TargetValues(depth), " ")
For l = LBound(TargetValueslist) To UBound(TargetValueslist)
              If Not (TargetValueslist(l) = "") Then
                 Celldata = "add_wide_split(" & Chr(34) & Targets(depth) & Chr(34) & "," & TargetValueslist(l) & ");" & vbLf
                 Print #1, Celldata
              End If
          Next l
                       
              If (depth > 0) Then
                Target_write_wide (depth - 1)
              Else
                Current_split = Current_split + 1
                Num_combinations = Num_combinations + 1

            Celldata = "run_all_wide_split(" & Chr(34) & testname & "_combination:" & Current_split & Chr(34) & ");"
         
             
            Print #1, Celldata
          End If
 End Sub