Sub ABEF()
For Each col In ActiveSheet.UsedRange.Columns
w = col.ColumnWidth
w = (8 / 9) * w
col.ColumnWidth = w
Next
For Each rw In ActiveSheet.UsedRange.Rows
h = rw.RowHeight
h = (8 / 9) * h
rw.RowHeight = h
Next
End Sub

Of course this would assume the aspect ratio is 1, which it isn't, so you
might need to reduce rows less than columns I think.

--
Regards,
Tom Ogilvy



"philcud" wrote in message
ups.com...
perhaps you thought i was ok with the logic, but unfortunately i cannot
write the code!!
if someone could post the necessary code please!