If IsNumeric(rcell.Value) = True Then