Reputation: 11
Sum = Application.Sum(Range(Cells(12, 3), Cells(12, 82)))
If Sum = 0 Then
Enter = "Enter a value for E"
Exit Sub
End If
So I am trying to get "Enter a value for E to pop up when the button is clicked. So far when the statement is true, nothing happens.
Upvotes: 0
Views: 834
Reputation: 4047
You can use MsgBox Enter
after the line Enter = "Enter a value for E"
:
Sum = Application.Sum(Range(Cells(12, 3), Cells(12, 82)))
If Sum = 0 Then
Enter = "Enter a value for E"
MsgBox Enter
Exit Sub
End If
Upvotes: 1