Macro for autominimising the objects in current active sheet..(Please post comments in any, for my further improvement)

[#1]

sub

mat

'Rem minimize all active sheet objects on active sheet

set

s=ActiveDocument.ActiveSheet

for

i=lbound(objs) to ubound

(objs)

msgbox

(objs(i).GetCaption.Name.v)

next

end

sub

[spsrk_84 · Accepted solution]

Hi Vidya,

Macro to Auminimize the sheetobjects

Sub Minimize

Set S=ActiveDocument.Sheets("main")

For i=0 to S.NoofSheetsobjects-1

S.Sheetobjects(i).Minimize)

next

End Sub

Try the above

Cheers,

Ajay