How to add date every day

Oliver2393

In this case, you need to update the code as below by using For...Next...Loop statement to loop through each worksheet and apply the code to it.

Private Sub Workbook_Open()
'This procedure will run each time you open the workbook
'Applied to all worksheets
'By Haytham Amairah
'Last Updated: 1/2/2020

    For Each Worksheet In Worksheets
        'Get the last row number filled with a value in Column A
        Dim lastRow As Long
        lastRow = Worksheet.Cells(Rows.Count, 1).End(xlUp).Row
    
        'Check if the last entered date is the same as the current date, if so, exit
        'You need this check to see if you close the workbook then open it on the same day
        'so that the code does not enter the same date again in a new row.
        If Worksheet.Cells(lastRow, 1).Value = Date Then GoTo NextSheet
        
        'Fill a new row in Column A with the current date
        If IsEmpty(Worksheet.Cells(lastRow, 1)) Then
            Worksheet.Cells(lastRow, 1).Value = Date
        Else
            Worksheet.Cells(lastRow, 1).Offset(1, 0).Value = Date
        End If
        
NextSheet:
    Next Worksheet
End Sub

Regards