Hmm, interesting. As far as a row/column increment goes, this may help with that ..
<font face=Tahoma New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>
<SPAN style="color:#00007F">Sub</SPAN> ChangeRowSize(ChangePercent <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>)
<SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> iStart <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, iEnd <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
iStart = Selection.Row
iEnd = Selection.Rows.Count + iStart - 1
<SPAN style="color:#00007F">For</SPAN> r = iStart <SPAN style="color:#00007F">To</SPAN> iEnd
i = Rows(r).RowHeight
Rows(r).RowHeight = i + i * (ChangePercent / 100)
<SPAN style="color:#00007F">Next</SPAN> r
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
MsgBox "Complete!" & vbNewLine & "Adjusted " & ChangePercent & "%"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Sub</SPAN> ChangeColumnSize(ChangePercent <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>)
<SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> iStart <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, iEnd <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
iStart = Selection.Column
iEnd = Selection.Columns.Count + iStart - 1
<SPAN style="color:#00007F">For</SPAN> r = iStart <SPAN style="color:#00007F">To</SPAN> iEnd
i = Columns(r).ColumnWidth
Columns(r).ColumnWidth = i + i * (ChangePercent / 100)
<SPAN style="color:#00007F">Next</SPAN> r
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
MsgBox "Complete!" & vbNewLine & "Adjusted " & ChangePercent & "%"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Sub</SPAN> RunIt_Rows()
<SPAN style="color:#007F00">'Figure will be used as a percentage increment/decrement</SPAN>
ChangeRowSize 10
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Sub</SPAN> RunIt_Columns()
<SPAN style="color:#007F00">'Figure will be used as a percentage increment/decrement</SPAN>
ChangeColumnSize -10
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>