actieve sheet als string gebruiken

[sis123]

Sub O_O() ' effectief bij klikken op de sheet - niet bij openen op sheet

Dim axls As Application ' toepassing
Dim fb As Workbook ' destination
Set axls = CreateObject("excel.application")
Set fb = axls.Workbooks.Open("J:\Firma\DLOGISTICS\Packing\Produktie\LIJSTEN\SOLL IST\2009\O.xls") ' fb wordt doelbestand
With fb
.Worksheets("APRIL").Range("B46:b76").Value = ThisWorkbook.Worksheets("APRIL").Range("b4:b34").Value 'overdracht
.Worksheets("APRIL").Range("D4676").Value = ThisWorkbook.Worksheets("APRIL").Range("D434").Value 'overdracht
.Worksheets("APRIL").Range("F46:F76").Value = ThisWorkbook.Worksheets("APRIL").Range("F4:F34").Value 'overdracht
.Worksheets("APRIL").Range("H46:H76").Value = ThisWorkbook.Worksheets("APRIL").Range("H4:H34").Value 'overdracht
.Worksheets("APRIL").Range("J46:J76").Value = ThisWorkbook.Worksheets("APRIL").Range("J4:J34").Value 'overdracht
.Worksheets("APRIL").Range("N46:N76").Value = ThisWorkbook.Worksheets("APRIL").Range("N4:N34").Value 'overdracht
.Worksheets("APRIL").Range("P4676").Value = ThisWorkbook.Worksheets("APRIL").Range("P434").Value 'overdracht
.Worksheets("APRIL").Range("R46:R76").Value = ThisWorkbook.Worksheets("APRIL").Range("R4:R34").Value 'overdracht
.Worksheets("APRIL").Range("T46:T76").Value = ThisWorkbook.Worksheets("APRIL").Range("T4:T34").Value 'overdracht
.Worksheets("APRIL").Range("V46:V76").Value = ThisWorkbook.Worksheets("APRIL").Range("V4:V34").Value 'overdracht
.Worksheets("APRIL").Range("W46:W76").Value = ThisWorkbook.Worksheets("APRIL").Range("W4:W34").Value 'overdracht
.Worksheets("APRIL").Range("Y46:Y76").Value = ThisWorkbook.Worksheets("APRIL").Range("Y4:Y34").Value 'overdracht

.Save ' doelbestand opslaan
.Close True
End With
axls.Quit ' toepassing sluiten

MsgBox ("Transfer succesfully completed")

Workbooks.Open ("J:\Firma\DLOGISTICS\Packing\Produktie\LIJSTEN\SOLL IST\2009\O.xls")

Workbooks("Kopie van OVZ2009.XLS").Close

End Sub

Bovenstaand scriptje doet het volgende :

kopieert bepaalde cellen naar éénzelfde file op een ander pad
opent die nadien en sluit de basisfile af

de file heeft als sheetnamen de maanden van het jaar
hoe kan ik die automatisch in de code laten lopen