Set LastCell = Cells(Rows.Count,"P").End(xlUp)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Darin Kramer" wrote in message
...
Hi there,

Im trying to apply borders to a series of cells in column P, that starts
in P2, and ends where the last bit of data is in that column. However
there may well be blanks in between...

Ideas?

Thanks!!!

D

*** Sent via Developersdex http://www.developersdex.com ***