Bom dia!!

Já tentou algo assim...?

Public Sub MacroB(Optional RemoteInput As String)
     Dim Var As String
    If RemoteInput = "" Then
        Var = InputBox
    Else
        Var = RemoteInput
    End If
     '
     'Restante do código
     '
End Sub

...eu nunca tentei isso, mas tente adptar.

Att

Obrigado pela sugestão alexandrevba, mas não consegui o resultado que queria, meu código ficou assim:

 Sub MacroB(Optional RemoteInput As String)

    ChDir "P:RDI"
    Workbooks.Open Filename:="P:RDIRDI_2014.xls"
    
    Dim Var As String
    If RemoteInput = "" Then
        Var = InputBox
    Else
        Var = RemoteInput
    End If
    
    Sheets("RDI_ATvsBUD").Select
    
    Sheets("BASE").Visible = True
    
End Sub

Na verdade, não entendi como seu codigo colocaria CPCT no inputbox da outra planilha ...

Att,

Nesta planilha que vou abrir a inputbox sempre abre sozinha ao iniciar a planilha, isso eu não posso mudar (pois a outra planilha não é minha).

Mas para mim serviria se quando eu abrir essa planilha através do meu código, este "cancelasse" a entrada da inputbox ...