determinate last shape row-edit macro

[neveu]

Hello,
i need your help to edit a macro:

i have a macro that searches through each spreasheets in a workbook and returns the last row for each shape (print screen) in the sheets.

i would need to edit the code so that i will only return the last row for the LAST SHAPE in the first spreadsheet.

can you help please? i stuck..

Sub Find_Image_Range_In_Excel()
Dim sht As Worksheet
Dim shp As shape

For Each sht In Sheets
For Each shp In sht.Shapes
 MsgBox "last image cell row is" & shp.BottomRightCell.Row
 End If
Next
Next sht
End Sub

 

[Comfy]

try this:

Sub Find_Image_Range_In_Excel()
Dim rCount As Long
Dim shp As Shape

For Each shp In ActiveWorkbook.Worksheets(1).Shapes
 If shp.BottomRightCell.row > rCount Then rCount = shp.BottomRightCell.row
Next
MsgBox "last image cell row in Sheet 1 is " & rCount
End Sub

 

[neveu]

thanks a milion,

works great