Sub aa()
a = ActiveCell.Parent.Parent.Name '工作簿名称
b = ActiveCell.Parent.Name '工作表名称
c = ActiveCell.Address '单元格地址
MsgBox a & b & c
End Sub
