Excel Forum

Code: Select all

Option Explicit
Option Base 1
Sub AddCal()
Dim wb As Workbook
Dim a As Variant
Dim i As Integer, j As Integer, k As Integer
a = Array("Average", "Min", "Max")
For Each wb In Workbooks
wb.Activate
    k = Sheets("Sheet1").Range("A65536").End(xlUp).Row
    For j = 1 To 3
         For i = 3 To 12
            Cells(k + j, i) = "=" & a(j) & "(" & Cells(2, i).Address & ":" & Cells(k, i).Address & ")"
        Next i
    Next j
Next wb
End Sub