本示例显示活动单元格的(文本)显示值。

Msgbox ActiveCell.Text