根据内容自动调整行高的问题？

Sub cc()
Selection.Rows.AutoFit
Selection.RowHeight = Selection.RowHeight + 10
End Sub
这个代码只能单个选择单元格起作用，如何实现多个单元格，望大神解答，谢谢！