VBA code to identify the cell number in a column which contains a specific text

In Column A if cell 36 has "2015 Stores" then i need a code to identify this cell number.

This can be dynamic and the text can be present in any cell.

Thanks in advance.

This will do if it's in column A & 2015 Stores is in B1

=IFERROR(ADDRESS(ROW(INDEX(A:A,MATCH(B1,A:A,0))),1),"?")

It just dawned on me you asked for VBA code. I see sktneer has already given one solution
Here's another. It'll find it anywhere on worksheet 1

Option Explicit

Sub FindAddress()
Dim Ws As Worksheet
Dim Col As Long
Dim rRow As Long
Dim String2Find As String
Set Ws = ThisWorkbook.Sheets(1)
String2Find = "2015 Stores"

        On Error Resume Next
            rRow = Ws.Rows().Find(What:=String2Find, LookIn:=xlValues, _
                        LookAt:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlPrevious, _
                        MatchCase:=False, SearchFormat:=False).Row
                        
            Col = Ws.Columns().Find(What:=String2Find, LookIn:=xlValues, _
                    LookAt:=xlPart, SearchOrder:=xlByColumns, searchdirection:=xlPrevious, _
                    MatchCase:=False, SearchFormat:=False).Column
        On Error GoTo 0
        
If Not rRow = 0 Or Not Col = 0 Then
MsgBox String2Find & " Is In " & Ws.Cells(rRow, Col).Address
Else
MsgBox String2Find & " Not Found"
End If

End Sub