VBA求代码：用msgbox展示当前选中的单元格的行高和列宽

VBA求代码：用msgbox显示当前选中的单元格的行高和列宽
VBA求代码：用msgbox显示当前选中的单元格的行高和列宽

就是说，我在工作表中放一按钮，要求一点按钮就能显示出当前选中的单个单元格的高和宽
请给代码，试过了没成功
[解决办法]

MsgBox ActiveCell.ColumnWidth
MsgBox ActiveCell.RowHeight