Presumably because vbYes and VbNo are part of a much bigger enumeration, and
there are only two Boolean values.

You could always declare ans as vbMsgboxResult.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"K Dales" <KDales@discussions.microsoft.com> wrote in message
news:6D28F42B-F6FA-4625-AFEF-4FA97547EF39@microsoft.com...
> For some strange reason the VB developers did not make vbYes and vbNo
> convertible directly to Boolean values. VBYes = 6 and vbNo = 7; converted
to
> Boolean they would both become True (i.e., non-zero). You need to Dim a
as
> an Integer variable.
>
> "John" wrote:
>
> > I have command button for deleting values in some cells, but it doesn't
> > work. Can someone help? Thanks !!
> >
> > Private Sub cmdDelete_Click()
> > Dim a As Boolean
> >
> > a = MsgBox("Do you want to delete?", vbYesNo)
> > Select Case a
> > Case a = vbYes
> >
> > Worksheets(1).Range("C4:C13,E28:G32,E34:G36,E38:G48,E50:G57").Select
> > Selection.ClearContents
> > Case a = vbNo
> > ActiveSheet.Range("C4").Select
> > End Select
> > End Sub
> >
> > Thanks!!
> >
> >
> >