Resize a Rectangle shape according to the total number of row using VBA

[LalitPandey87]

Hi All,

Thanks for all the fast reply of my previous threads.
You people are so helpful.
Now this time i need a code or function which resize a ractangle according to the no of rows data in excel using VBA.

Thanx in Advance.

[Excel Fox]

Public Sub ResizeShapeOverRange(shp As Object, rngRange As Range)

shp.Height = rngRange.Height
shp.Width = rngRange.Width
shp.Top = rngRange.Cells(1).Top
shp.Left = rngRange.Cells(1).Left

End Sub

Sub Callit()

Call ResizeShapeOverRange(ActiveSheet.Shapes(1), Range("C5:D10"))
'OR
Call ResizeShapeOverRange(ActiveSheet.Shapes("NameOfShape"), Range("C5:D10"))

End Sub

[LalitPandey87]

Thanx its working !!!!!!!!!!!!! Woooohoooooo