ActiveSheet.Shapes.Range(Array("Clt_%", "Clt_CE", "Clt_7", "Clt_4", "Clt_1", _
"Clt_±", "Clt_V¯", "Clt_C", "Clt_8", "Clt_5", "Clt_2", "Clt_0", "Clt_x²", _
"Clt_<<", "Clt_9", "Clt_6", "Clt_3", "Clt_,", "Clt_¹/x", "Clt_÷", "Clt_ * ", _
"Clt_ - ", "Clt_ + ", "Clt_=", "Clt_R", "Clt_f")).Select
Selection.Placement = xlFreeFloating
Application.CommandBars("Format Object").Visible = False
ActiveCell.Select