ReDim x(1 To N) For k = 1 To N x(k) = Application.Max(Application.Transpose(Range("B6").Offset(0, k).Resize(T + 1))) Next
ReDim x(1 To N) For k = 1 To N x(k) = Application.Max(Application.Transpose(Range("B6").Offset(0, k).Resize(T + 1))) Next
Last edited by Aussiebear; 04-08-2023 at 04:11 PM. Reason: Adjusted the code tags