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