new silly little problem

[ksnapp]

i need a sub that will go down column E until it gets to the firs
blankcell, then it puts "END OF REPORT" in the same row column A
I can't figure this one ou

 

[Paul B]

see if this will wrk for you
Sub test()
Range("E1").End(xlDown).Offset(1, -4) = "END OF REPORT"
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **

 

[ksnapp]

i got it don't bothe