If [b6] = "" Then
MsgBox ("Preencha o CAMPO OP para continuar!!")
Cancel = True
Exit Sub
Range("B6").Select
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:Ops a imprimir" & ActiveSheet.Range("b6").Value& & Format(Date, " - dd-mm-yyyy") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If

Está certo esse pedaço em vermelho ??? qual o conteúdo de B6 ?

É uma célula que o usuario preenche, o salvamento da planilha vai ser feito com o valor dessa célula, mais a data... isso está certinho...

Não está é achando o caminho, não sei pq...

Dois e comercial seguidos não está certo....

Vixi...

O duro é que prá testar, instalei agora pouco no micro de um amigo, remotamente também.... Funcionou perfeito.

Vou ter que ir instalar pessoalmente onde preciso, em outra cidade.

Tomara que dê certo ao vivo...

Mesmo assim, muito obrigado pela atenção.

Valeu!