Excel Forum

Code: Select all

set wb = workbooks.open(application.getopenfilename("(*.xls*),*.xls*")): i = 0: for each sh in wb.worksheets: for each o in sh.shapes: i = i + 1 : next o: next sh: msgbox "File path: " & wb.fullname & vbcrlf & string(30,"-") & vbcrlf & "Objects: " & string(2,vbtab) & i & " item(s)" & vbcrlf & "Named range: " & vbtab & wb.names.count & " item(s)" & vbcrlf & "Styles: " & string(2,vbtab) & wb.styles.count & " item(s)": wb.close false: