Tom, anexe a sua planilha para facilitar. As imagens mencionadas não foram anexadas.

Na Plan "Menu" tem uma caixa de seleção igual a Plan "Painel de Vendas",
Quero ter a opçao de realizar a impressão ou salvar o arquivo em PDF, e poder deixar pre-selecionado em qual diretório o arquivo será salvo de forma automatica com com click "botao".

Como sou leigo, alguem poderia me auxiliar a corrigir esta macro, que copia e cola dados de outra plan, pois esta dando erro de compilaçao, erro de sintaxe:

Sub Importar_Dados()

[COLOR="Red"]. If MsgBox("Confirma Importação de Dados?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Workbooks.Open Filename:="C:UsersantonioDocumentsBACKUP CENTRALADM CENTRALPLANILHAS RESULTADOS2017Relatorio SIGESF.xls"
Set wsOrigem = Workbooks("Relatorio SIGESF.xls").Worksheets("emitirRelatorioDetalhadoDeAtend")
Set wsDestino = Workbooks("META DO DIA GERAL.xls").Worksheets("Colar_Aqui_Sigesf")
wsOrigem.Range("A1:AH" & Cells(Rows.Count, "AH").End(xlUp).Row).Copy
wsDestino.Range("P1").PasteSpecial xlValues
[COLOR="Red"] Application.CutCopyMode = False

End With

Workbooks("Relatorio SIGESF.xls").Close SaveChanges:=True
MsgBox "Importação de Dados Concluída"

End Sub