Sheet kopieren und umbenennen (VBA)

Private Sub cmb_Switch_Click()
If MsgBox("Soll der nächste Monat vorbereitet werden?", vbYesNo) = vbYes Then
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
Else
End If
End Sub

Das erste WS lautet auf "01.2009". Demnach möchte ich nach dem Kopieren das neue WS auf "02.2009" umbenennen und dieses im nächsten Monat (überraschenderweise) auf "03.2009" umbenennen. Der Code liegt hinter dem WS und das WS des nächsten Monats wird immer aus dem WS des vorhergehenden Monats heraus kopiert. Könnt Ihr mir behilflich sein, das in VBA umzusetzen?
Vielen Dank im voraus.
Gruß
Torsten