Hello All,

Ok ive been asked by the boss to make some changes to the code below:

Boss want the user's to be required to fill in the Two fields before being aloud to procede to the next step in the inventory.
I marked the fields that require a response:

Sub NameIt()

Dim fileSaveName  As String
Dim strOrigDate   As String
Dim strFileDate   As String
Dim strFileNum    As String
Dim strFileLoc    As String
Dim strFileName   As String

strFileLoc = "C:\Users\Brian\Desktop\Excell Test folder\"
strOrigDate = CStr(Sheets("Log In").Range("D3"))
strFileDate = Format(strOrigDate, ("m-d-yyyy"))
strFileNum = CStr(Sheets("Log In").Range("F5"))    'Require a User Response
strFileName = CStr(Sheets("Log In").Range("B5"))  'Require a User Response

   fileSaveName = strFileLoc & strFileDate & "-" & strFileNum & "-" & strFileName & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=fileSaveName
  
End Sub
As always thank's for Your Help with this


Aeneren