View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
~Alan Rosenberg Miami ~Alan Rosenberg Miami is offline
external usenet poster
 
Posts: 14
Default move this rectangle to hide the unused cells

Xl2000
I have 90 rows with formulas that are not being used yet and I don't
want to see them untill I need them.
Each work day that is monday through friday I will use the next 2 rows.
So what I created a Rectangle colored white to hide the unused cells
and I have a macro that I click on to move the Rectangle 2 rows
Question Is it possible to have XL move this rectangle each work day
when I open this sheet
and not move it on the weekends when I may want to review
the sheet
Sub Rectangle10_Click()
ActiveSheet.Shapes("Rectangle 9").Select
Selection.ShapeRange.IncrementTop 24.75
End Sub