Sub Test()

    Dim I, J As Integer
    Dim ITop, JTop As Integer
    Dim Work(1 To 9, 1 To 9) As String
    Dim LoopFlg As Integer
    
    
    For I = 1 To 9
        For J = 1 To 9
            Work(I, J) = Cells(4 + I, 11 + J)
        Next J
     Next I
    LoopFlg = 0
    Call TriplePairExcl(Work, LoopFlg)
    For I = 1 To 9
        For J = 1 To 9
            Cells(4 + I, 11 + J) = Work(I, J)
        Next J
     Next I
    
   
End Sub