It seems so simple but I've tried many variations of this and I can't get it to work. It immediately returns a compile error on this line:
Sub SplitAdjustment(split As Double)
. . .
End Sub
at the calling end, I have:
Dim split As Double
Call SplitAdjustment(CDbl(split))
I started out with just Call SplitAdjustment(split) but failed
also tried using ByVal split at either end and at both ends but failed