Help on macro

A2Z CF 

This may work to capture the previous day's date and use it in the file names. See below the updated version that takes into account the previous date:

Sub MoveFiles()
    Dim SourceFolder As String
    Dim DestinationFolder1 As String
    Dim DestinationFolder2 As String
    Dim DestinationFolder3 As String
    Dim File1 As String
    Dim File2 As String
    Dim File3 As String
    
    ' Set the source folder path
    SourceFolder = "C:\SourceFolder\"
    
    ' Set the destination folder paths
    DestinationFolder1 = "C:\DestinationFolder1\"
    DestinationFolder2 = "C:\DestinationFolder2\"
    DestinationFolder3 = "C:\DestinationFolder3\"
    
    ' Get the previous day's date
    Dim previousDate As Date
    previousDate = Date - 1
    
    ' Generate the file names based on the previous day's date
    File1 = "File1_" & Format(previousDate, "yyyymmdd") & ".xlsx"
    File2 = "File2_" & Format(previousDate, "yyyymmdd") & ".xlsx"
    File3 = "File3_" & Format(previousDate, "yyyymmdd") & ".xlsx"
    
    ' Move the files from source to destination
    FileCopy SourceFolder & File1, DestinationFolder1 & File1
    FileCopy SourceFolder & File2, DestinationFolder2 & File2
    FileCopy SourceFolder & File3, DestinationFolder3 & File3
    
    ' Delete the files from the source folder
    Kill SourceFolder & File1
    Kill SourceFolder & File2
    Kill SourceFolder & File3
    
    MsgBox "Files moved successfully!", vbInformation
End Sub

That will now calculates the previous day's date by using date function and subtracting 1 from it, and by using format function to generate the file names based on previous date. and then moves the files to the respective destination folders.