Custom Function not calculating properly

Hi,

I have this custom function that Sums certain cells accross all worksheets that have a name tarting with "PC". This works well accept that it is not calculating the decimal points. For example, the total should read 122.49 but instead reads 123.00. Below is a copy of the custom function:

Function SumSheets(strCl As String)


Application.Volatile
Dim ws As Worksheet
Dim x As Long
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 2) = "PC" Then
x = x + ws.Range(strCl)
End If
Next
SumSheets = x
End Function

Does any one know how to adjust this function to calculate properly?

Thanks

Long is an extended integer data type. DIM'med as such, x can only hold integers, and, thus, your function only returns integers. Perhaps you intended to DIM x as Single or Double.

Yes, change x as long to x as double

That worked well thanks!