excel如何录制一个能调整行高列宽的宏

向高手求助，我有几百张相同的表格，由于各种原因，行高、列宽被调乱了，现在我想把它们调整成统一行高、列宽的表格，如何录制一个这样一个宏。
我尝试录制过这样的宏，可是只执行最后一列的列宽。代码如下，请高手帮我看看。
Sub 宏1()
'
' 宏1 宏
'

'
    Cells.Select
    Selection.RowHeight = 25
    Columns("A:A").Select
    Selection.ColumnWidth = 6
    Columns("B:B").Select
    Selection.ColumnWidth = 6
    Columns("C:H").Select
    Selection.ColumnWidth = 8
    Columns("I:AB").Select
    Selection.ColumnWidth = 6
End Sub

排除程序問題,其他地方有毛病吧~