hi
I have been running the following macro and it works fine except i have to
push button 6 twice to get it to recalculate and display the correct number
in cell c14. can anyone tell me why and how to fix this annoyance.

Sub Button6_Click()

Range("c12") = Range("c12") + Range("d8")
If IsNumeric(Range("F2").Value) Then
Select Case Range("F2").Value
Case Is <= 1
myvalue = 1
Case Is <= 2
myvalue = 2
Case Is <= 3
myvalue = 3
Case Is <= 4
myvalue = 4
Case Else
myvalue = 5
End Select
Range("C14").Value = myvalue

End If


Range("c18") = Range("c18") + Range("d7")

Range("A8,b8,b7,c8") = 0


End Sub