Sub Tri(ref As Range)
Dim mem As Boolean, o As Object
mem = Application.CopyObjectsWithCells
Application.CopyObjectsWithCells = True
Set o = ActiveSheet.Shapes.AddTextbox(1, ActiveCell.Left, ActiveCell.Top, 1, 1)
[A2:C1000].Sort ref
o.TopLeftCell.Select
o.Delete
Application.CopyObjectsWithCells = mem
End Sub