Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next: [Select_Box].Delete: On Error GoTo 0
If Not Target.Count > 1 Then
With Shapes.AddShape(msoShapeRoundedRectangle, _
Target.Left - 5, Target.Top - 5, _
Target.Width + 10, Target.Height + 10)
.Name = "Select_Box"
.Fill.Visible = msoFalse
.Line.Visible = msoTrue
.Line.Weight = 1.5
.Line.ForeColor.RGB = vbRed
.Visible = True
End With
End If
End Sub