Set rR = ActiveSheet.Range(r, r.End(xlDown))

davegb wrote:

Code doesn't run:

Set r = activesheet.Range("F2")
Set rR = activesheet.Cells(r, r.End(xlDown)) <----- APPLICATION
DEFINED OR OBJECT DEFINED ERROR
rR.NumberFormat = "mm/dd/yy"

I tried putting in .range after activesheet, but that doesn't help
either.
Any suggestions?
Thanks again.

--

Dave Peterson