Good morning everybody,
I have this worksheet that I need to optimize. I have created a master sheet and I can create a new sheet by using this:
"Option Explicit
Sub AddMonthWkst()
Dim ws As Worksheet
Dim wsM As Worksheet
Dim strName As String
Dim bCheck As Boolean
On Error Resume Next
Set wsM = Sheets("Master")
strName = Format(Date, "Mmm yy")
bCheck = Len(Sheets(strName).Name) > 0
If bCheck = False Then
'add new sheet after Instructions
wsM.Copy After:=Sheets(1)
ActiveSheet.Name = strName
End If
Set wsM = Nothing
End Sub"
This works fine... but... Rows 2 (C:AF or C:AG, depending on the month, should contain the date (Mon, Tue, Wed, etc) while row 3 (C:AF or C:AG, depending on the month, should contain the date (01,02,03, etc).
Also I need to be able to create as many sheets as I need, right now I can only create the one that concerns the current month (this is because I might need to assign next months flights ahead of time, i.e. charters).
Is there a way that this can be achieved?
Thank you for any help/suggestions you can give
Bookmarks