something like this:
Sub Macro1()
Set Cloud_Loc = Range("B2")
Cloud_Height = 48#
Cloud_Width = 72#
Cloud_Left = Cloud_Loc.Left + Cloud_Width
Cloud_Top = -1 * (Cloud_Loc.Top + Cloud_Height)
ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, _
Cloud_Left, Cloud_Top, Cloud_Width...