That's interesting seeing I have an e-mail from him telling me to attach my
file and e-mail it. I then received a return e-mail that his fees were
$75.00/hour.
--
Stacia


"Jim Thomlinson" wrote:

I have never seen Don request any fees for the advice he has supplied on this
forum. He has given more free advice than 99% of the posters around here.
While his reply may have been blunt it certaily was not over the line. It is
not obviouls from your code what you are wanting to accomplish. It is obvious
from your code that you are not comforatble in VBA. A brief description of
what you want to do would be helpful...
--
HTH...

Jim Thomlinson


"stacia" wrote:

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

.