Suggestions for this macro:)

[Dr.Ile]

Hello,

Any suggestions to write this macro on different (more sofisticated) way?
1)

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
ActiveSheet.Shapes("KT2").Select
Selection.ShapeRange.LINE.Visible = msoTrue
Range("A1").Select
Else
ActiveSheet.Shapes("KT2").Select
Selection.ShapeRange.LINE.Visible = msoFalse
Range("A1").Select
End If
End Sub

2)

ActiveSheet.Shapes.Range(Layer_KT2).Select
Selection.ShapeRange.Group.Select
Selection.Name = "KT2"

Thank you, Drile

PS: As you see, I used Range("A1").Select to deselect shapes. Is it possible to deselect shapes on different way (how could I "model" the Escape button with VBA).

[mudraker]

Try making your changes without selecting the shape.

I don't work with shapes so I am basing my suggestion on what works with workbooks, sheets, cells etc

If CheckBox1.Value = True Then
ActiveSheet.Shapes("KT2").ShapeRange.Line.Visible = msoTrue
Else
ActiveSheet.Shapes("KT2").ShapeRange.Line.Visible = msoFalse
End If
End Sub

2)
ActiveSheet.Shapes.Range(Layer_KT2).ShapeRange.Group.Name = "KT2"