Sub Macro1()

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
ActiveCell()(1, 4).Select
End Sub

This will add the border to the current active or selected cell.

--
Greetings from New Zealand
Bill K

"Laurahoney" wrote in message
...
I created a macro to place a border on the left "wall" of a cell and then
move my cursor 3 cells to the right and stop. Instead, each time I use
the
macro, the cursor returns to the original cell and I have to move over to
where it should have moved. Is there some way I can make the macro move
the
cursor correctly?