Reinaldo ou alguém que possa me ajudar

tenho o código abaixo que funciona em meu pc para gerar pdf da minha planiha, porém mandei minha planilha para outro pc e me apresentou o erro ("ERRO OU TEMPO DE EXECUÇÃO" ARGUMENTO OU CHAMADA DE PROCEDIMENTO INVÁLIDA) e quando depuro o erro ele destaca em amarelo a parte em negrito como apresenta abaixo:

Sub Macro1()
Dim Pasta As String, MyPath As String

Pasta = ActiveSheet.Range("P1").Value
arq = Format(Now, "dd-mm-yyyy-hhmm") & ActiveSheet.Range("P2").Value & ".pdf"
MyPath = "C:relatorios" 'Indica em que local a pasta estará , pode ser C: ou d: ou e:....
'Verifica se o diretorio existe
If (Dir(MyPath & Pasta, vbDirectory) = "") Then
MsgBox "Diretório - " & MyPath & Pasta & " - Não encontrado"
' se não existir, cria se quiser
MkDir (MyPath & Pasta)
End If
'Verifica se o arquivo já existe, se existir, deleta
'If (Dir(Arquivo) <> "") Then
' Kill Arquivo
'End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & Pasta & "/" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub