já consegui. se alguem tiver interesse … segue abaixo:
sub macro()
dim acount as integer, ccount as integer, rcount as integer
dim i as integer, j as long, arange as string
dim rheight() as single, cwidth() as single
dim awb as workbook, nwb as workbook
if ucase(typename(activesheet)) “worksheet” then exit sub
‘ useful only in worksheets
acount = selection.areas.count
if acount = 0 then exit sub ‘ no cells selected
ccount = selection.areas(1).cells.count
if acount > 1 then ‘ multiple areas selected
application.screenupdating = false
set awb = activeworkbook
rcount = activesheet.cells.specialcells(xllastcell).row
ccount = activesheet.cells.specialcells(xllastcell).column
redim rheight(rcount)
redim cwidth(ccount)
for i = 1 to rcount
‘ find the row height of every row in the selection
rheight(i) = rows(i).rowheight
next i
for i = 1 to ccount
‘ find the column width of every column in the selection
cwidth(i) = columns(i).columnwidth
next i
else
‘descrever a macro aqui!!!!!!!!!!
‘exemplo
selection.clearcontents
end if
end sub