我曾经编写了一个宏：当我选中特定单元格区域时运行此宏，宏就会对此单元格区域进行识别，找出单元格所在区域的位置，然后读取数据进行计算，得出我想要的结果。比如下面的宏：
Sub 宏_1()
Dim r As Integer, c As Integer, iCount As Integer, jCount As Integer
r = Selection.Row ’求得选中单元格的行号
c = Selection.Column ’求得选中单元格的列号
iCount = Selection.Rows.Count ’求得选中单元格区域的行数
jCount = Selection.Colums.Count ’求得选中单元格区域的列数
’对单元格的数据进行计算，得出我想要的结果。
End Sub
此宏有一个令我不满意的地方，就是我必须先选对单元格才可以执行宏，否则得出的结果就会出错。
因此我希望重新编写一个宏，实现如下功能：可以先运行宏，中间过程中断弹出对话框，提示我选择数据所在的单元格后再继续运行宏。此功能类似EXCEL的函数一样，比如SUM函数，可以先弹出SUM函数对话框，然后在对对话框中输入"A1:B10",或者用鼠标框选A1至B10的单元格，然后回车继续运行函数，SUM函数就帮我计算SUM(A1:B10)的值。
此功能如何实现，请各位高手相告。
