Sub Test() Dim cColor As New Color If cColor.UserAssignEx = False Then 'User closed the dialog without selecting a color Set cColor = CreateRGBColor(0, 0, 255) End IfEnd Sub