return a value of Function and use it in macro|VBA & Macros|Excel Forum|My Online Training Hub

I write a macro that have a function for calculating the factorial of numbers.

and I want call it in my sub and return the value of that factorial function in a cell in my sheet. but when I run my macro it just return 0 to me.

this is my code:

Function Factorial(x As Integer) As Integer

Dim i As Integer

Dim F As Integer

F = 1

For i = 1 To x

Factorial = Factorial * i

Next i

End Function

******

Sub macro1()

Dim j, k As Integer

For j = 2 To 8

u = (10) ^ (-7 + j) Cells(j, 3).Value = u Cells(j, 6).FormulaR1C1 = _ "=-0.5772-LN(RC[-3])+RC[-3]-((RC[-3]^2)/(2*FACT(2)))+((RC[-3]^3)/(3*FACT(3)))-((RC[-3]^4)/(4*FACT(4)))"

Next j

Cells(8, 8) = Factorial(3)

End Sub

my function is work truely but when I want to call it return the 0.how can I solve my problem?