Excel - Problemas con If y error protected view

Este es mi código en teoría es para mover tres hojas de un solo libro de trabajo y guardar sin embargo nosé si me falta algo para que combine ya que después del primer save as me aparece este mensaje:

"There is no active protected view windows"

Option Explicit

Dim Fameve09 As String

Dim Fameve07 As String

Dim Warning As Integer

Dim Fameve10 As Integer

Dim Fameve11 As Integer



Sub CompileA()



Warning = MsgBox("Are you sure you want to do that?", vbYesNo + vbQuestion, "Warning")



If Warning = vbYes Then



'Crea la nueva pestana para proceder a salvarlo

Sheets("Aniversarios").Select

Sheets("Aniversarios").Copy After:=Sheets("Pizza")

ActiveSheet.Name = "Aniversario"



'Elimina todas las formulas de la nueva pestana previo salvar

Sheets("Aniversario").Range("A2:I206").Copy

Sheets("Aniversario").Range("A2:I206").PasteSpecial Paste:=xlPasteValues

'.Range("A19:O58").sPasteSpecial xlPasteValues



'Prepara el Nombre del archivo y lo asigna a la variable

'Sheets("PA").Range("B1").Copy

'Sheets("PA").Range("I2").PasteSpecial Paste:=xlPasteValues

Fameve09 = Sheets("Main").Range("U1")

MsgBox Fameve09



'Salva el archivo con el nombre pertinente

Sheets("Aniversario").Select

Sheets("Aniversario").Move

ActiveWorkbook.SaveAs Filename:="H:blabla ma





Sheets("Birthday").Select

Sheets("Birthday").Copy After:=Sheets("Pizza")

ActiveSheet.Name = "Birthdays"



'Elimina todas las formulas de la nueva pestana previo salvar

Sheets("Birthday").Range("A2:I100").Copy

Sheets("Birthday").Range("A2:I100").PasteSpecial Paste:=xlPasteValues

'.Range("A19:O58").sPasteSpecial xlPasteValues



'Prepara el Nombre del archivo y lo asigna a la variable

'Sheets("PA").Range("B1").Copy

'Sheets("PA").Range("I2").PasteSpecial Paste:=xlPasteValues

Fameve10 = Sheets("Main").Range("U2")

MsgBox Fameve10



'Salva el archivo con el nombre pertinente

Sheets("Birthdays").Select

Sheets("Birthdays").Move

ActiveWorkbook.SaveAs Filename:="H:blablabla





Sheets("SalaryIncrease").Select

Sheets("SalaryIncrease").Copy After:=Sheets("Pizza")

ActiveSheet.Name = "3%"



'Elimina todas las formulas de la nueva pestana previo salvar

Sheets("3%").Range("A2:I200").Copy

Sheets("3%").Range("A2:I200").PasteSpecial Paste:=xlPasteValues

'.Range("A19:O58").sPasteSpecial xlPasteValues



'Prepara el Nombre del archivo y lo asigna a la variable

'Sheets("PA").Range("B1").Copy

'Sheets("PA").Range("I2").PasteSpecial Paste:=xlPasteValues

Fameve11 = Sheets("Main").Range("U3")

MsgBox Fameve11



'Salva el archivo con el nombre pertinente
Sheets("3%").Select

Sheets("3%").Move

ActiveWorkbook.SaveAs Filename:=blablbal4



Else



End If



End Sub


Básicamente ese es mi código si alguien me puede ayudar sería de gran ayudar por favor se los agradezco

Así la macro se ve un poco mejor:


No se puede probar la macro, no se puede adivinar que hace la macro ni que datos lee o escribe no es posible saber cual es el problema.
El problema por el tipo de error puede estar en el libro y no en la macro

Sube el libro que da el error e intentare ver cual es la causa.

Saludos.
\\//_