It isn't convoluted? Maybe confused. I have an Accounting degree (BBA) from
the University of Texas with graduate work at NYU and am a retired Regional
Manager for ING. My books are already audited.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"stacia" wrote in message
...
Do you give everyone a hard time or just those who won't pay your fees.
This
forum is for those of us who have questions. Sorry not a VBA expert, just
a
little old accountant who would love to audit you.
--
Stacia


"Don Guillett" wrote:

Convoluted. What do you want to do.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"stacia" wrote in message
...
This works for the first cell that has title "Shop Report", but it will
not
continue to the next and to the end

Sub b10shop()


Dim MyRange As Range
Dim MyCell As Range
Dim EndRow As Integer

EndRow = Range("E65536").End(xlUp).Row
Set MyRange = Range("E1:E" & EndRow)
MyRange.Select
On Error Resume Next
For Each MyCell In MyRange
If MyCell.value = "Shop" Then
Cells.Find(What:="Shop Report", After:=ActiveCell,
LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Activate
Range("E4").Select
ActiveCell.FormulaR1C1 = "=R[3]C[-4]"
End If
Next MyCell
End Sub


--
Stacia

.