Test for Optional Range

[PNCD]

I need to test whether an optional Range has been passed to a UDF.
IsMissing(RangeName) always returns False regardless of a range being given or not.
RangeName exists as an Object that shows a Value of Nothing and Type of Range. I have not found any test that will indicate if the Range was passed in or not.
Thank you.

[Leith Ross]

Hello PNCD,

The function IsMissing should only be used with Optional arguments that are Variants. Declaring an Optional argument as any other type will result in the missing argument returning the default value for that type. This means there is always a return value and the Optional argument isn't missing.

Example "A"

'This will detect the missing argument.
Function TestA(Optional Rng As Variant)
  If IsMissing(Rng) Then MsgBox "You Didn't Enter A Range."
End Function

Example "B"

'This will never see the missing argument.
Function TestB(Optional Rng As Range)
  If IsMissing(Rng) Then MsgBox "You Didn't Enter A Range."
End Function

[PNCD]

Thank you, Leith
The problem is that I have a Function with an Optional Range and I need a way to check if a Range has been given or not. I know that IsMissing() does not work and I have tried several other approaches as well. I am trying to find what does work!

[Leith Ross]

Hello PNCD,

If you want to see if the Range is missing then check if the passed Range is Nothing. This is the default value for a Range object.

Function TestC(Rng As Range)
  If Rng Is Nothing Then
     MsgBox "You Didn't Enter A Range."
  End If
End Function

[PNCD]

Bless you!
I did not know about Is. I had tried =.
Thank you very much