can anyone fix this code

[bhandari]

My intention to make my text box word wrap=true
as well as locked

Sub Cronical_Click()
With ActiveSheet.TextBoxes
        ActiveSheet.TextBoxes.Locked = True
        ActiveSheet.TextBoxes.LockedText = True
End With
With ActiveSheet
        .Range(Array("TBA,TBB,TBC,TBD,TBE,TBF,TBR,TBL")).Select
        .Selection.ShapeRange.TextFrame#.WordWrap = msoFalse
       
End With
End Sub

 

[bhandari]

anybody can help me out?