does this get you on your way ?SUB celladMsgBox (" THE ACTIVE cell ADDRESS IS ") & ActiveCell.AddressEnd sub