Need a macro on worksheet change event

PrasadK · Sep 23rd 2021

I need a macro on worksheet change event to apply cell borders automatically based on cell value

Like if I type any value in cell then apply border automatically

rollis13 · Sep 26th 2021

Copy this macro in the sheets vbe module and give it a try:

Code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim borderArray, Edge
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value <> "" Then
        borderArray = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)
        For Edge = 0 To 3
            With Target.Borders(borderArray(Edge))
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        Next Edge
    End If
End Sub

Display More

PrasadK · Sep 27th 2021

Thank you so much rollis13

rollis13 · Oct 4th 2021

Glad having been of some help.

Need a macro on worksheet change event

Participate now!

Share