Visual Basic para Aplicaciones - código que no funciona en determinado excel

ÉSTE CÓDIGO LO TENGO EN MI CASA CON EXCEL 97 Y ME FUNCIONA PERFECTAMENTE, PERO EN EL TRABAJO TENGO EXCEL 2003, Y CUANDO LLEGA A Sheets("---").Copy Before:=Sheets("---"), SE CORTA Y NO ME INSERTA UNA HOJA NUEVA. ¿PORQUE PUEDE SER QUE FUNCIONE EN UN EXCEL, Y EN OTRO NO?

GRACIAS DE ANTEMANO

Private Sub CommandButton2_Click()

Dim hoja As Integer

hoja = ActiveSheet.Index - 1

Sheets("--- (2)").Select
Sheets("--- (2)").Name = InputBox("Nombre de la hoja:", "Insertar")
ActiveWorkbook.Sheets(hoja).Range("F1").Value = InputBox("Fecha y Hora:", "Insertar")
Sheets("---").Select
Sheets("---").Copy Before:=Sheets("---")
ActiveWorkbook.Sheets(hoja).Range("C4:C50") = Empty
Sheets("---").Select

End Sub

por qué no probás depurando el código con F8... mirando el código a simple vista es complicado darse cuenta por qué no funciona...

Saludos desde Baires, JuanC

Ha hice lo de depurar con F8 y no conseguí solucionarlo, pero me acabo de dar cuenta que el culpable de todo esto es el antivirus Kaspersky, que tiene una opción para macros.

La he deshabilitado y a funcionar.

Gracias de todas formas