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
Bookmarks