Shorter method to "box" some cells
 

I am using Office 2003 on Windows XP.

I simply want to draw a box around a single cluster of cells, but I find,
using the recorder that you have to use at least four lines of code to do
this:

Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin

Isn't there a one line method that is easier/faster (something like xlBox)?
Thanks in advance for your assistance.

Shorter method to "box" some cells
 

Try this...

selection.borderaround xlthin
--
HTH...

Jim Thomlinson


"quartz" wrote:

I am using Office 2003 on Windows XP.

I simply want to draw a box around a single cluster of cells, but I find,
using the recorder that you have to use at least four lines of code to do
this:

Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin

Isn't there a one line method that is easier/faster (something like xlBox)?
Thanks in advance for your assistance.

Shorter method to "box" some cells
 

In my first post you probalby get the wrong kind of line. Weith is the second
argument so just add a comma

selection.borderaround , xlthin
--
HTH...

Jim Thomlinson


"quartz" wrote:

I am using Office 2003 on Windows XP.

I simply want to draw a box around a single cluster of cells, but I find,
using the recorder that you have to use at least four lines of code to do
this:

Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin

Isn't there a one line method that is easier/faster (something like xlBox)?
Thanks in advance for your assistance.

Shorter method to "box" some cells
 

Exactly what I was looking for, thanks...

"Jim Thomlinson" wrote:

In my first post you probalby get the wrong kind of line. Weith is the second
argument so just add a comma

selection.borderaround , xlthin
--
HTH...

Jim Thomlinson


"quartz" wrote:

I am using Office 2003 on Windows XP.

I simply want to draw a box around a single cluster of cells, but I find,
using the recorder that you have to use at least four lines of code to do
this:

Selection.Borders(xlEdgeLeft).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin

Isn't there a one line method that is easier/faster (something like xlBox)?
Thanks in advance for your assistance.