Marco code needed to find contents of cell a1 in entire workbook
 

Marco code needed to find contents of cell a1 in entire workbook and then go
to that cell.

Marco code needed to find contents of cell a1 in entire workbook
 

Sub findit()
Dim s1 As Worksheet, s As Worksheet
Dim r As Range, v As Variant
Set s1 = ActiveSheet
n = s1.Name
v = Range("A1").Value
For Each s In Worksheets
s.Activate
nn = s.Name
For Each r In ActiveSheet.UsedRange
If nn = n And r.Address = "$A$1" Then
Else
If r.Value = v Then
r.Select
Exit Sub
End If
End If
Next
Next
s1.Activate
End Sub
--
Gary''s Student - gsnu200843


"gmc" wrote:

Marco code needed to find contents of cell a1 in entire workbook and then go
to that cell.