Using Input Box to determine month

[Needsomehelp10]

Hey guys,

I am trying to use an input box to help determine a variable in my vba code. For example, I want an inbox to pop up and ask what month is it (1-12)? If they answer 1, then the month used for the code will be January and so on. Below is the code I have currently. Is what I want to do possible? The variable I want the input box answer to change is the mnth variable. Thanks in advance.



Subfilelocation ()

Dim Filename As String
Dim FilePath As String
Dim Yer As Integer
Dim mnth As String
mnth = "October "
Yer = 2017
If Range("A2") = "A" Then
Filename = ActiveSheet.Name & " TB - " & mnth & Yer
FilePath = "Insert File Path Here"
ActiveSheet.SaveAs Filename:=FilePath & "" & Filename, FileFormat:=51
ElseIf Range("A2") = "B" Then
Filename = ActiveSheet.Name & " TB - " & mnth & Yer
FilePath = "Insert Alternative File Path Here"
ActiveSheet.SaveAs Filename:=FilePath & "" & Filename, FileFormat:=51
End If
End Sub

 

[Joe4]

Take a look at this block of code which will prompt for a month number and change to month name:

    Dim mnth As Byte
    mnth = InputBox("Enter month number")
    If (mnth >= 1) And (mnth <= 12) Then
        MsgBox Format(DateSerial(Year(Date), mnth, 1), "mmmm")
    Else
        MsgBox "You have not entered a valid month"
    End If

 

[Fluff]

Something like

Sub chk()
Dim ans As Long
Dim Mnth As String
ans = InputBox("Insert month number")
Mnth = MonthName(ans)
MsgBox Mnth
End Sub

 

[Joe4]

I never knew there was a MonthName function in VBA.
I like it!!!

 

[Fluff]

I actually thought it was an xl function, but when that didn't work, I hunted around & discovered that it's VBA instead.

 

[Needsomehelp10]

Thank you guys so much, that worked perfectly.

 

[Fluff]

Glad we could help & thanks for the feedback