harber95
07-21-2015, 02:32 PM
After using the code:
Private Sub Concentration_Change() 'concentration
Dim a As Double
Dim s As String
If a < 0 Then
MsgBox "please use a number that applies to: 80>=x>=2.4"
If 0 <= a < 2.4 Then
MsgBox "Please use a higher number"
If a > 80 Then
MsgBox "Please use a smaller number"
If a = s Then
MsgBox "Please use a number that applies to: 80>=x>=2.4"
End If
End Sub
I receive this error msg: "Compile Error: Block If without End If".
What should I do?
Private Sub Concentration_Change() 'concentration
Dim a As Double
Dim s As String
If a < 0 Then
MsgBox "please use a number that applies to: 80>=x>=2.4"
If 0 <= a < 2.4 Then
MsgBox "Please use a higher number"
If a > 80 Then
MsgBox "Please use a smaller number"
If a = s Then
MsgBox "Please use a number that applies to: 80>=x>=2.4"
End If
End Sub
I receive this error msg: "Compile Error: Block If without End If".
What should I do?