ActiveWorkbook.ActiveSheet.Copy

Con la instrucción expuesta abajo copio la hoja de cálculo activa a un libro
nuevo y rompo los vínculos.
Ahora bien, una de las hojas que necesito copiar contiene un listbox y
varios option buttons, por lo tanto la hoja contiene rutinas (varias
"private sub") y al copiar la hoja, se copia con sus rutinas en visual
basic.
1) Cómo hago para modificar este código expuesto abajo para lograr que copie
sólo la hoja activa sin las rutinas del list box y los option buttons??
Gracias



ActiveWorkbook.ActiveSheet.Copy
ActiveSheet.Name = "Hoja1"
Dim astrLinks As Variant
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(astrLinks) Then
ActiveWorkbook.BreakLink _
Name:=astrLinks(1), _
Type:=xlLinkTypeExcelLinks