Pessoal tenho a macro abaixo na minha planilha.

Porem toda vez que vou atualizar pede para que eu localize onde o arquivo importado esta. Gostaria de saber como faço para ela localizar automaticamente o arquivo que esta salvo na mesma pasta que ela e o nome do arquivo esta na aba PARAMETROS na celula F2.

Sub importar()
'
' importar Macro
'

'
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
Dim ANALISE, BASE, ENDEREÇO, strName As String
    ANALISE = ThisWorkbook.Name
    
    strName = Sheets("Parametro").Range("F2").Value
    
    CAMINHO = Application.GetOpenFilename(, , "IMPORTAÇÃO DO ARQUIVO")
 
 If CAMINHO = False Then
 
    MsgBox ("Erro. Arquivo não importado! Verificar o nome do arquivo.")
 Else
 
    Workbooks.OpenText Filename:=CAMINHO, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 2), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
        Array(35, 2), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
        41, 1)), TrailingMinusNumbers:=True
    Columns("A:A").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows(ANALISE).Activate
    Sheets("Aderencia_NF").Visible = True
    Sheets("Aderencia_NF").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(strName).Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
    Call formula
    Calculate
End If
End Sub