# If..Then or Case Else

Folks,
I am using the code below in a command button click event. It works. So my question is there a better way to do this - like using the Case...Else which I am not "yet" comfortable with?

`````` Dim QtrTotal As Integer
QtrTotal = 1571
If Range("B7") <> QtrTotal Then
MsgBox "1st Qtr Total Hamburgers is incorrect!", vbOKOnly, "Incorrect Answer"
Worksheets("2DLine").Range("B7").ClearContents
Range("B7").Select
Exit Sub
End If
QtrTotal = 1271
If Range("C7") <> QtrTotal Then
MsgBox "1st Qtr Total Milk Shakes is incorrect!", vbOKOnly, "Incorrect Answer"
Worksheets("2DLine").Range("C7").ClearContents
Range("C7").Select
Exit Sub
End If
QtrTotal = 238
If Range("D7") <> QtrTotal Then
Worksheets("2DLine").Range("D7").ClearContents
Range("D7").Select
Exit Sub
End If
QtrTotal = 642
If Range("E7") <> QtrTotal Then
MsgBox "1st Qtr Total Drinks is incorrect!", vbOKOnly, "Incorrect Answer"
Worksheets("2DLine").Range("E7").ClearContents
Range("E7").Select
Exit Sub
End If
``````
###### Who is Participating?

Commented:
You keep testing different cells with different qrtotals.
On first sight, one might think a case of qrtotals would be sufficient, but it's actually not.
Your code should be as it is. You could put it all in an if then, elseif, elseif, elseif else, but it doesn't help that much for coding or readability reasons.
0

Author Commented:
thanks...I wasn't heading to la-la land
0

Commented:
I agree with Kimputer.

I mean, you could use a Case...but then you'd have to update some variable for the cell reference...probably not worth it (and over-complicating things).
0

Author Commented:
thanks for the affirmation
appreciate it
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.