Pookiemeister
Well-known Member
- Joined
- Jan 6, 2012
- Messages
- 623
- Office Version
- 365
- 2010
- Platform
- Windows
VBA Code:
EmailTo:
If EmailTo = "" Then
MsgBox "Uh Oh! " & fName & "," & vbNewLine & "It appears your email correspondents are empty. Let's take care of that now.", vbCritical, "No emails listed to send report to"
EmailEntryNum = InputBox(fName & "," & vbNewLine & "How many people will you need to send this attachment to? Enter that number below.")
If IsNumeric(EmailEntryNum) And EmailEntryNum > 0 Then
MsgBox "YES!" 'For Test Purposes Only
Else
MsgBox "AWE! You either did not enter a number or your number was less than 1. Let's try this process this again."
GoTo EmailTo
End If
Else
'vbYes=6 vbNo=7
WkAnswer = MsgBox(Greetings & fName & vbNewLine & vbNewLine & "Is this for the current week?" & vbNewLine & vbNewLine & "Select: " & vbNewLine & "Yes = Current Week" & vbNewLine & "No = Previous Week", vbDefaultButton1 + vbYesNo)
I declared "EmailEntryNum" as an integer. So, what I am wanting is if the user enters ANYTHING besides a number, it will jump to the else statement. It sounds simple but I can't get it to work. Here is where the error occurs.
VBA Code:
EmailEntryNum = InputBox(fName & "," & vbNewLine & "How many people will you need to send this attachment to? Enter that number below.")