Code to select a sheet based on value cell

[dpaton05]

I have a sheet that has I13 to contain a month and year for instance July 2018 and sheet names for instance July 2018 and i AM trying to copy the first 4 columns of July 2018 and paste them into a new workbook. What is wrong with this code?


Private Sub cmdCopySheet_Click()
Dim CopyMonth As String
CopyMonth = Range("I13").Value

Worksheets(CopyMonth).Select
Columns("A:D").copy
Workbooks.Add
ActiveSheet.Paste
End Sub

 

[footoo]

If I13 contains a Date, try :

CopyMonth = Format([I13], "mmmm yyyy")

 

[dpaton05]

Thanks but I got it working with this code already:

Dim CopyMonth As String
    CopyMonth = Range("I13").Value
    
    Worksheets(CopyMonth).Activate
    Worksheets(CopyMonth).Columns("A:D").copy
    Worksheets("home").Activate
    Workbooks.Add
    ActiveSheet.Paste