Macro to border row from start column to end column

[malik641]

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.

 

[Guest]

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

 

[malik641]

Hey Jim, thanks a lot! Macro works flawlessly!!!

 

[malik641]

Now I have another question...
The macro won't work for one of my workbooks. The workbook collects
data from another workbook (i.e. =[Workbook1.xls]Sheet1! type) and I
ALSO want this workbook to have the macro work the same way...but it
won't.

How do I make this macro work for this workbook?

 

[malik641]

anyone????