Copy Selected sheets to a new workbook and save

[iamdeeflow]

Hi everyone,

I've been trying to work on this project but it seems I'm going nowhere.
What I'm trying to do is to copy all sheets that has the same month. The sheets are named as "MAY 01", "MAY 02", "MAY 03" and so on. I have an InputBox to enter the month.

Here's my code. Appreciate who can help me on this.

Sub MONTHLYFILE()
    Dim mSheets As String
    Dim ws As Worksheet
    mSheets = InputBox( _
        PROMpT:="Enter date in 'MMM' format", _
        Title:="Create Monthly File", _
        Default:="MMM")
        Select Case StrPtr(mSheets)
        Case 0
            Exit Sub
        Case Else
    For Each ws In ActiveWorkbook.Sheets
        If InStr(1, ws.Name, mSheets) <> 0 Then
            ws.Select False
        End If
    Next ws
    End Select
        'dont know what code to copy the selected sheets
        Set WB = ActiveWorkbook
        WB.SaveAs "REV " & mSheets & " 2018.xlsx"
        WB.Close
End Sub

 

[My Aswer Is This]

You said:

What I'm trying to do is to ​

copy all sheets​

that has the same month.
Copy the sheet and do what with it?
​

 

[iamdeeflow]

Thanks for the reply. I wanted to copy the sheets that has the same month to a new workbook and save it. I hope answered your question.

 

[Fluff]

How about add this line to your code

End Select
[COLOR=#ff0000]ActiveWindow.SelectedSheets.Copy[/COLOR]
Set wb = ActiveWorkbook

 

[iamdeeflow]

How about add this line to your code

End Select
[COLOR=#ff0000]ActiveWindow.SelectedSheets.Copy[/COLOR]
Set wb = ActiveWorkbook

Thanks it works!
I really appreciate it.

 

[Fluff]

Glad we could help & thanks for the feedback