Macro won't move in proper progression

L

Laurahoney

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?
 
B

Bill Kuunders

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.
 
Top