Exit this Sub

[Ralph M]

I have code that puts a boarder around the entire row when a cell is selected, what I would like to do is Exit Sub if another Cell in the Active Row is selected. This is in the WorkSheet SelectionChange Module.
Thanks

 

[Juan Pablo González]

Care to explain with an example, I'm having some trouble understanding what you mean...

 

[Ralph M]

Sorry,
No matter which Cell I select, the Code puts a border around the outside of the entire row. Then when I select a different Cell, the border is removed fr the current selection and a new border is crreated around the newley selected Cell. What I want to do is check so that if I select a Cell in the Active Row, Exit Sub. So the Code doesn't run every single time I select a Cell in the same Row.
Does that help?

 

[Ralph M]

I'm not sure how to address the Active Row to check if I selected a Cell in the same Row.
This is in the WorkBook SelectionChange Module.

 

[Ralph M]

Can someone give me any ideas with this?

 

[just_jon]

Still unclear, there's only 1 active cell/row at a time [ absent multi-cell selections ]

 

[Ralph M]

Jon,

If I select "B3", the entire row 3 has a border around it, here is my Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
i = Selection.Row

With Cells
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With

With Range(Cells(i, 1), Cells(i, 256).End(xlToLeft)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range(Cells(i, 1), Cells(i, 256).End(xlToLeft)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range(Cells(i, 1), Cells(i, 256).End(xlToLeft)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range(Cells(i, 1), Cells(i, 256).End(xlToLeft)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With

End Sub

 

[just_jon]

OK; B3 gets selected and row 3 gets bordered.

Then D3 is selected and you want the process short-stopped then? Not sure the checking for an existing border's going to save anything ...

 

[Ralph M]

Yes, that's it Jon, At lease it won't run the Code everytime I change a Cell in the same Row.