border around cell

what's the best way to put border around a cells. I had recorded a macro but the code is too long is there a shorter way?

Please Login or Register  to view this content.

You could also just apply a named style that includes borders.

Thanks it worked