Intersect with Target - vba

Question

I cannot figure out how to make the code below work. Every call results in Intersection = Nothing and the ELSE statement selected and yes rngIntersect is valid and non-empty and the intersection is not empty so the problem is with the target part.
When I debug the code and ask ? target the result is zilch. However target.column, target.row, and target.address are all correct 3,9, and $C$9 respectively).
This must be something basic but after all the looking around on different sites I have yet to come up with a solution.
I can find if the target is within range by using target.column and target.row but I cannot make the more elegant code below work. For whatever reason target seems to be 'somewhat but not completely empty'.
To emphasize, in the debug window ? target returns empty but ? target.address returns $C$9 as it should because that is the cell the user has selected and rngIntersect = $C$9:$N$9, hence Intersect = $C$9 definitely <> Nothing.
I have tried ? range(target) and ? target.range but that generates an error.
In essence, how do I make target return the range as it is supposed to, after all it is defined as a range to begin with right?
Sub OnSelectionChange(ByVal target As Range, wksChange As Worksheet)
On Error GoTo ErrorHandler
Dim rngIntersect As Range, rngTarget As Range
Set rngIntersect = wksChange.Range("RNGINTERSECT")
Set rngTarget = target
If Not Application.Intersect(rngTarget, rngIntersect) Is Nothing Then
Call WorksheetSelectionChange(target.Column, wksChange)
Else
Call MAIN.ZoomAdjust(wksChange, False)
End If
ErrorExit:
Exit Sub
ErrorHandler:
Call LogError(Err.Number, Err.Description, C_MODULE, "OnSelectionChange")
Resume ErrorExit
End Sub

Answer 1

I think your problem isn't from your code but from your expectation, to wit that ? Target should print something. Target is a range, and when you don't specify which property you want to print the default property will be printed which is .Value. The fact that the cell may be empty says nothing about the existence of it as a range object.
Target is a range object. Therefore you don't need to convert it into a range object, like rngTarget. As a range object, one of its properties is .Worksheet which, therefore, you don't need to pass along as an additional argument. Bear I mind that Application.Intersect also returns a range object.
Below is working code. I have stripped out anything that might confuse you, your error handlers in particular. If this kind of code ever creates an error you want to know about it immediately and not only after 3 hours of futile search.
Option Explicit
Private Sub TestIntersect()
OnSelectionChange Range("C9")
OnSelectionChange Range("C3")
End Sub
Sub OnSelectionChange(ByVal Target As Range)
Dim WksChange As Worksheet
Dim RngIntersect As Range
Set WksChange = Target.Worksheet
' Set RngIntersect = WksChange.Range("RNGINTERSECT")
Set RngIntersect = WksChange.Range("C9:N9")
If Not Application.Intersect(Target, RngIntersect) Is Nothing Then
WorksheetSelectionChange Target.Column, WksChange
Else
MAINZoomAdjust WksChange, False
End If
End Sub
Private Sub WorksheetSelectionChange(ByVal C As Long, _
Ws As Worksheet)
MsgBox "Here is WorksheetSelectionChange" & vbCr & _
"Column " & C
End Sub
Private Sub MAINZoomAdjust(Ws As Worksheet, _
ByVal TooBig As Boolean)
MsgBox "Here is MAINZoomAdjust" & vbCr & _
"TooBig = " & TooBig
End Sub

Answer 2

I did find the problem. The correct code should be
If Not Application.Intersect(target, wksChange.Range(wksChange.Range("RNGINTERSECT"))) Is Nothing Then
instead of
If Not Application.Intersect(target, wksChange.Range("RNGINTERSECT")) Is Nothing Then
The reason is that wksChange.Range("RNGINTERSECT") returns the string value for the range of interest, not the range itself