correlation.vb

Sub CalculateCorr4()
    Dim corrSheet As Worksheet
    Set corrSheet = Worksheets("闽┦だ猂")
    Dim portSheet As Worksheet
    Set portSheet = Worksheets("щ戈舱厨筍だ猂")
    Dim corr As Double
    Dim i As Integer
    
    For i = 2 To 13
        corr = Application.WorksheetFunction.Correl(portSheet.Range("B2:B95").Value, _
                                                    portSheet.Range(portSheet.Cells(2, i), portSheet.Cells(95, i)).Value)
        Debug.Print corr
    Next i

End Sub