Selecting

Dim oSelection As Object 
Dim oShapeRange As Excel.ShapeRange 
Dim oShape As Excel.Shape 

Set oSelection = Application.Selection 
If (TypeName(oSelection) = "Rectangle") Then 
   Set oShapeRange = oSelection.ShapeRange 
   set oShape = oShapeRange(1) 
End If 

set oShape = ActiveSheet.Shapes.Item(1)