Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value = Empty Then
Range(Target.Offset(0, -1), Target.Offset(0,
5)).Borders.LineStyle = xlNone
Else
Range(Target.Offset(0, -1), Target.Offset(0, 5)).Borders.Weight
= xlThin
End If
End If
End Sub
--
HTH...

Jim Thomlinson


"malik641" wrote:


I want to create a macro where if a value is entered in column "B", then
I want the row (from Column A to G) that the value was entered in to be
bordered with a thin outline and thin inside lines.

BUT, if a value in column "B" is deleted, then I want the border
removed in that row from column "A" to "G".

I would use conditional formatting but I've used them up for other
criterias.
This will also perform upon every change in the worksheet...so please
don't forget:

Private Sub WorkSheet_Change(ByVal Target As Excel.Range)


I'm still a novice at VBA, but I'm trying to make a macro right now
that does this.


Thanks in advance.


--
malik641


------------------------------------------------------------------------
malik641's Profile: http://www.excelforum.com/member.php...o&userid=24190
View this thread: http://www.excelforum.com/showthread...hreadid=389185