'''''''This file is for updating the functionality of the Asphalt Mix Design Package''''''''' '''''''''''''''''''''''''''''''''''''Written by John Crane''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''Released on 2019/05/14'''''''''''''''''''''''''''''''''' Public Sub JMFUpdates() VersionNum = 1.10 'This Revision Date much Change with each Release ActiveWorkbook.Sheets("T400").Select CurrentVersion = Sheets("T400").Range("N1") Select Case CurrentVersion Case 1.10 Case 1.20 Case 1.21 Case Else msgbox "Something has gone wrong." End Select 'grabs Sheet T400 'ActiveWorkbook.Sheets("T400").Select 'MyNewFile = Application.GetSaveAsFilename(InitialFileName:="T400 - Asphalt Job Mix Formula Workbook 2019-05-14", fileFilter:="Exel Files (*.xlsm), *.xlsm") 'ActiveWorkbook.SaveAs Filename:=MyNewFile End Sub