Try to remove the with block:

    With OvenArray(OvenNum).Cells(3, 4)
        .NumberFormat = "@"
        .value = FixArray(count - 1, 2)
    End With

OvenArray(OvenNum).Cells(3, 4).NumberFormat = "@"
OvenArray(OvenNum).Cells(3, 4).value = FixArray(count - 1, 2)