Below are the two subs that I need to work together. The first sub is rather long so I am attaching an appended version below. Essentially, I need to name the final file (in the second sub) using the "DataDate" that is input by the user in the first sub. There are actually several subs that go in between these two but they do not need/access the "DataDate" and are all running properly.
Sub 1:
Dim DataDate As String
Dim Year As Integer
Dim ValidDate As Boolean
Dim PrevDate
Dim Month
Dim Response
'Input CURRENT data date and validate input format
Line30: Sheets("Data Input Control").Select
Do
DataDate = InputBox("Enter the CURRENT data month in the form MMM-YY", "CURRENT Data Month Input", Format(Date, "mmm-yy"))
If DataDate = "" Then MsgBox ("No valid date entered.") Else GoTo Line60
GoTo Line99 'Line99 ends the macro
Line60: Select Case UCase(Left(DataDate, 3))
Case "JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC"
Year = IIf(IsNumeric(Right(DataDate, 2)), Right(DataDate, 2), 0)
ValidDate = Year > 0 And Year < 99
Case Else
ValidDate = False
End Select
Loop Until ValidDate
'Have user validate their input
Response = MsgBox(DataDate, 4, "CURRENT Data Month?")
If Response = vbYes Then GoTo Line40 Else GoTo Line30
Sub 2:
Finalchanges()
' Finalchanges Sub
'SAVE WORKBOOK
ActiveWorkbook.SaveAs Filename:= _
"C:\My Documents\Store\" + DataDate + "\Test File " + DataDate + ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub