.CurrentRegion does not return current region when used with one celled range object but does if ActivecCell is the same cell

[OaklandJim]

I am trying to use .CurrentRegion with a range object with one cell, in this case cell D2. I confirm that the range object -- rAnchorCellChartData -- is set with Debug.Print as shown below. When trying to get the current region with that range object (rAnchorCellChartData.CurrentRegion) the result is the range with one cell. If I activate the same cell then .CurrentRegion returns the correct range when used with ActiveCell (ActiveCell.CurrentRegion).

I must be missing something basic?

Debug.Print "rAnchorCellChartData = " & rAnchorCellChartData.Address
Debug.Print "rAnchorCellChartData.CurrentRegion = " & rAnchorCellChartData.CurrentRegion.Address
Debug.Print "ActiveCell = " & ActiveCell.Address
Debug.Print "ActiveCell.CurrentRegion = " & ActiveCell.CurrentRegion.Address

Result
rAnchorCellChartData = $D$2
rAnchorCellChartData.CurrentRegion = $D$2
ActiveCell = $D$2
ActiveCell.CurrentRegion = $C$1:$I$3

 

[kevin9999]

Unfortunately, I can't reproduce the error...

Sub O_Jim()

    Dim rAnchorCellChartData As Range
    Set rAnchorCellChartData = Sheet1.Range("$D$2")
    
    Debug.Print "rAnchorCellChartData = " & rAnchorCellChartData.Address
    Debug.Print "rAnchorCellChartData.CurrentRegion = " & rAnchorCellChartData.CurrentRegion.Address

End Sub

Leads to this in the immediate window:

rAnchorCellChartData = $D$2
rAnchorCellChartData.CurrentRegion = $C$1:$I$3

 

[RoryA]

I'd have to suspect the two cells are on different sheets. What does this output?

Debug.Print "rAnchorCellChartData = " & rAnchorCellChartData.Address
Debug.Print "rAnchorCellChartData.CurrentRegion = " & rAnchorCellChartData.CurrentRegion.Address(external:=true)
Debug.Print "ActiveCell = " & ActiveCell.Address(external:=true)
Debug.Print "ActiveCell.CurrentRegion = " & ActiveCell.CurrentRegion.Address

 

[OaklandJim]

RoryA. Indeed there were two different sheets involved. I feel pretty lame. I was creating a chart based on data in one sheet then I changed the sheet where the chart and data are to be located. So I was trying to get .CurrentRegion for a cell with nothing around it in the previous sheet which is now empty. Thank you for responding to my post! Sometimes a second opinion works wonders, even for very simple stuff.