Macro to save a file with a pre file name + week number from a cell

Try this:

Sub Macro1()

    Dim wb As Workbook
    Set wb = ThisWorkbook
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Sheet4") ' Change to your sheet name
    
    Dim weeknum As String
    weeknum = ws.Range("A1").Value
    
    Dim person As String
    person = ws.Range("A2")
    
    Dim strPath As String
    strPath = "P:\" ' Change to your destination folder
    
    Dim strFileName As String
    strFileName = strPath & "Weeklist of " & person & " Week " & weeknum & ".xls" ' You can't use colons in file names
    
    
    wb.SaveAs strFileName, FileFormat:=51
    
    Set ws = Nothing
    Set wb = Nothing
    
    


End Sub

... but, you can't use colons ( in file names.