MsgBox "Active-Row: " & ActiveCell.Row, vbInformation '****** Sub acitveCellInfo() MsgBox "Active-column: " & ActiveCell.Column & ", Active-Row: " & ActiveCell.Row, vbInformation, "Active Cell" End Sub