Código funciona bien en excel 2010, pero en 2007 no

Hola que tal buen día, te saludo con mucho gusto!!!

El detalle es el siguiente, tengo estos dos códigos que funcionan perfectamente en excel 2010 pero en excel 2007 no, me imagino que debe de haber una equivalencia que pueda realizar lo que necesito! Pongo aquí los códigos.

Agradezco infinitamente su valiosísima ayuda!!!

Sub CreaReporte()
'Por.DAM
Sheets("CAPTURA").Activate
MiReporte = Range("O7")
Set l1 = ThisWorkbook
Sheets(Array("REPORTE MENSUAL", "BITACORA DE RECIBOS")).Copy
Application.DisplayAlerts = False
Sheets("REPORTE MENSUAL").Cells.Copy
Sheets("REPORTE MENSUAL").Select
Range("A1").Select
'Range("A1").PasteSpecial Paste:=xlValues
Sheets("BITACORA DE RECIBOS").Cells.Copy
Sheets("BITACORA DE RECIBOS").Select
Range("B2:M1000").Select
'Range("A1").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs Filename:=MiReporte & " REPORTE MENSUAL.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l1.Activate
MsgBox "COPIA TERMINADA", vbInformation, "COPIAR"
End Sub

y este es el otro

Sub LIMPIARBITACORA()
Dim CONTRASENA As String
 Sheets("OPCIONES").Activate
 CONTRASENA = Range("H7")
ActiveSheet.Unprotect Password:=CONTRASENA
Dim RESPUESTA As Integer
MessageBox
RESPUESTA = MsgBox("¿ESTAS SEGURO QUE QUIERES BORRAR TODA LA INFORMACION?", vbCritical + vbYesNo, "AVISO IMPORTANTE")
'If RESPUESTA = "SI" Or RESPUESTA = "Si" Or RESPUESTA = "Sí" Or RESPUESTA = "si" Then
If RESPUESTA = 6 Then
'Sheets("BITACORA DE RECIBOS").Active
Range("B9", ActiveCell.SpecialCells(xlLastCell)).ClearContents
 Application.DisplayAlerts = False
 ActiveSheet.Protect Password:=CONTRASENA, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Else
 PARAR
 ActiveSheet.Protect Password:=CONTRASENA, DrawingObjects:=True, _
 Contents:=True, Scenarios:=True
 End If
End Sub

saludos y agradezco nuevamente!!!