Copy Today’s Worksheet

How to automatically copy today’s worksheet quickly and easily with VBA, Many a times we may want to make a backup copy of the worksheet we have been working on. Watch the video below to learn how to create a copy of the current worksheet quickly and easily:

Watch this video on YouTube.

Here’s the complete VBA code to make a copy of the current worksheet using today’s date.

Option Explicit

Sub copyTodaySheet()

Dim sdayName As String

sdayName = Format(Date, “dddd”)

‘MsgBox sdayName

If ActiveSheet.Name = sdayName Then
ActiveSheet.Copy after:=Worksheets(“Saturday”)

End If

Worksheets(sdayName).Cells.Clear

End Sub