Массив: Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке.

Sub asdf()
   Dim cC As Range, mARR(), tmpARR(), newARR()
   Dim M&, N&, mV#, i&, j&, f&, a&, b&
      M = 5: N = 8
      ReDim mARR(1 To M, 1 To N)
      ReDim newARR(1 To M, 1 To N)
      Randomize
         For i = LBound(mARR, 1) To UBound(mARR, 1)
            ReDim tmpARR(1 To N): a = 0: b = 0
               For j = LBound(mARR, 2) To UBound(mARR, 2)
                  mARR(i, j) = Rnd * 899 + 100
                  newARR(i, j) = mARR(i, j)
                  tmpARR(j) = mARR(i, j)
               Next 'j
               mV = CDbl(Application.Max(tmpARR))
                  For f = LBound(tmpARR) To UBound(tmpARR)
                     If CDbl(tmpARR(f)) = CDbl(Application.Min(tmpARR)) And a = 0 Then
                        newARR(i, f) = mV: a = a + 1
                     End If
                     If CDbl(tmpARR(f)) = mV And b = 0 Then
                        newARR(i, f) = CDbl(Application.Min(tmpARR)): b = b + 1
                     End If
                     If a <> 0 And b <> 0 Then Exit For
                  Next 'f
         Next 'i
         With ActiveSheet
            .Cells.Delete
            .Cells(1, 1).Value = "Source ARRAY"
            .Cells(2, 1).Resize(UBound(mARR, 1), UBound(mARR, 2)).Value = mARR
               With .Cells(Rows.Count, 1).End(xlUp)
                  .Offset(3, 0).Value = "New ARRAY"
                  .Offset(4, 0).Resize(UBound(newARR, 1), UBound(newARR, 2)).Value = newARR
               End With
         End With
End Sub

M = CLng(InputBox("Input your COLUMNS", , 100500))
   i = ActiveSheet.Columns.Count: M = IIf(M > i, i, M)
N = CLng(InputBox("Input your ROWS", , 10))
   i = ActiveSheet.Rows.Count: N = IIf(N > i, i, N)