DataTypeErrorTrap



Creates a pop-up warning message if non-numeric data is entered in cell A1, then clears cell.