Need Help fixing VBA Type Mismatch Error passing a Double as argument

Question

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

Answer 1

I found the problem and it appears to be a rookie mistake on my part. The yellow highlighted debugger stopping point at the subroutine header was a coincidence. The error was INside the subroutine. A very straightforward ByRef error

Sorry and thanks for your time!

Answer 2

Sub SplitAdjustment(split As Double)

I would CERTAINLY use ByVal in this case, because presumably the procedure has no intention of returning a changed "split" to the caller.
But it does not explain the main issue :-(

Answer 3

The CDbl wrapper is superfluous. Remove it.

Answer 4

This code looks OK to me. The problem may be somewhere else. Set breakpoints and carefully step through.

You do have Option Explicit in place per best practices, and your code does compile (Debug > Compile), correct?