Find a Cell Based on Text and then Extract Date Range

[BrianExcel]

I am using the following code to find the cell containing the words "Reporting Dates":

    With ActiveWorkbook.Worksheets("Stats")
        Set DateRangeEdits = .Cells.Find(What:="Reporting Dates", LookIn:=xlValues, lookAt:=xlPart)
    End With

Within that cell is a varying date range, but the cell will ALWAYS Start with the text "Reporting Dates - ".

I need to extract the date range, basically everything RIGHT of the "-", to parse it as a string to pass into a chart.

I can't seem to get it to work...

 

[Joe4]

Try this:

    Dim DateRangeEdits As Range
    Dim DateRange As String
   
    With ActiveWorkbook.Worksheets("Stats")
        Set DateRangeEdits = .Cells.Find(What:="Reporting Dates", LookIn:=xlValues, lookAt:=xlPart)
    End With
   
    DateRange = Mid(DateRangeEdits, 19)
   
    MsgBox DateRange