Thanks, sorry for stupid question.
"NickHK" wrote in message
...
Ev,
Just change all Longs to Singles. e.g.:

Function CalcMaxNeg(argRange As Range) As Long
Dim Cell As Range
Dim RunSum As Single
Dim MaxNeg As Single

........etc

NickHK

"Ev" wrote in message
...
Hi Guys,

The initial function works but only with whole numbers, it doesn't seem
to
work with % and also seems to round. Is there a way to change it to work
around this?

"Ev" wrote in message
...
I have a list of returns like that listed below, I want to find out the
greatest continuous run of negative returns,
(i.e. -24-3 =-27, and is greater than -2-4-3-1-1-1=-12) so it would
return
a result of -27
6
7
2
0
-2
-4
-3
-1
-1
-1
7
-24
-3
2
4

A function would be the most preferable solution