Hi Dunk
here is one way to do this;
Sub finder()
Dim SearchString As String
Dim Sh, F, Location As String, Flag, Found1st
SearchString = "Dept Total"
Set Sh = Sheets.Application
For Each Sh In Application.Sheets
Flag = 0
With Sh.Range("A1:IV65536")
Do
Set F = .Find(SearchString, lookat:=xlWhole, after:=ActiveCell, LookIn:=xlValues)
If Not F Is Nothing Then
If Flag = 0 Then Found1st = F.Offset(0, 1).Address(external:=True)
Location = F.Address
Sh.Select
Range(Location).Offset(0, 1).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Flag = Flag + 1
End If
Loop Until Found1st = ActiveCell.Address(external:=True) And Flag > 2 Or F Is Nothing
End With
Next Sh
End Sub
HTH
Ivan