Não entendi direito.
Ambos arquivos/planilhas já estão abertos, e o obetivo é selecionar/ativar uma determinada folha/sheet se um determinado valor atender a condição?
Poderia ser algo +/- assim

Sub intpesquisa()

Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Date

'chamar a planilha de controle de vagas 2014 (R&S)

With Workbooks("Controle de Vagas 2014.xlsx").Worksheets("2014!")
    If .Range("d2").Value > Date Then
        Workbooks("Novo controle de Formulários RP - MP.xlsm").Worksheets("2013 2014!").Activate
    ElseIf .Range("d2").Value < Date Then
        Workbooks("Pasta1").Worksheets("Plan2").Activate
    Else
        MsgBox "planilha não encontrada"
    End If
End With


End Sub

Não entendi direito.
Ambos arquivos/planilhas já estão abertos, e o obetivo é selecionar/ativar uma determinada folha/sheet se um determinado valor atender a condição?
Poderia ser algo +/- assim

Sub intpesquisa()

A intenção é ao clicar em uma célula da culuna D, a var1 assuma o valor desta celula, seja abra outra pasta de trabalho ou mude para ela caso já esteja aberta, e seja feito um auto filtro com este valor.

Sendo que nesta pasta de trabalho que será aberta possuo duas planilhas, uma que começa em 01/08/2014 e outra que vai da data de dez/2012 até 31/07/2014. Por isso a var3 é uma data e, que dependendo do valor desta, será aberta a rotina para a respectiva planilha.