Is this what you are looking for? The location may need some minor adjustments

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/23/2008 by Joel Warburg
'

'
Set Cloud_Loc = Range("B7")
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, Cloud_Height).Select

End Sub

" wrote:

Is there anyway to easily make revision clouds around specific cells/
groups of cells in excel?

Thanks,
David