Я сделал саб функцию, но получаю ошибку, что не так?

Question

Я написал саб в VBA для Excel. я сделал это для отладки и пошагового выполнения кода. Я изменил его на функцию и изменил только Dims и последнюю строку для вывода, он получил ошибку в электронной таблице. Что я делаю не так? Я закомментировал тусклые цвета, необходимые, когда это был суб

Function CostPerTon(FeedType As String) As Double

'Dim FeedType As String, count#, CostPerTon#
Dim count#

'FeedType = "Duck - Comercial - Starter - 1 to 25 Days"

Sheets("Formulations").Activate

count = Application.WorksheetFunction.CountA(Range("A:A"))

i = 1

Dim IngredientCost As Double
Dim MyArray(100) As Variant


Do While i < count + 1

    IngredientCost = Application.WorksheetFunction.VLookup(FeedType, Range("1:1048576"), i + 2, 0) _
     * Worksheets("Costs").Cells(i + 2, 2) * (1 / 1000)
    MyArray(i) = IngredientCost

    i = i + 1

Loop

CostPerTon = WorksheetFunction.Sum(MyArray)

End Function