Hello,

I am trying to figure out the best option for my situation.

I have the below code and need to figure out how to save the file in another folder as Checklist_username_date.
Then I want to be able to write in the code an option to open this file if the user needs to.

I also need to update the code to include if Checklist is open, look into columns C and D and update if blank. I need this in case the user does not complete the checklist on day 1. 

Option Explicit

Private Sub RecordData_Click()
Dim xlApp As Object
Dim xlWorkbook As Object
Dim sUserName As String
Dim cb As Integer
Dim strMsg As String
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWorkbook = xlApp.Workbooks.Open("i:\CAP_Profile\Desktop\Projects\PPT\QA Checklist\QA Checklist.xlsx", True, False)
sUserName = Environ("username")
strMsg = ""
          
For cb = 1 To 12
    If Me.Controls("checkbox" & cb).Value = True Then
        xlWorkbook.sheets(1).Cells(cb + 1, 3).Value = sUserName
        xlWorkbook.sheets(1).Cells(cb + 1, 4).Value = Now()
    Else
        strMsg = strMsg & "- " & cb & vbCrLf
    End If
Next
If strMsg <> "" Then MsgBox "Check Box " & vbCrLf & vbCrLf & strMsg & " Not ticked", vbInformation, "Alert!"
  
Set xlApp = Nothing
Set xlWorkbook = Nothing
End Sub