Hi Guys

I am unable to convert this function formula to VBA ... please advise ...
Formula: copy to clipboard
=2*MIN(_xlfn.CHISQ.DIST(H33,H28-1,1),1-_xlfn.CHISQ.DIST(H33,H28-1,1))

Below code ... have substituted the Cells with Variables...

Pval = 2 * Application.WorksheetFunction.Min(WorksheetFunction.Chisq_Dist(Xstat,Size-1,1),1 - WorksheetFunction.Chisq_Dist(Xstat,Size-1,1))