（没）A1が手打ちで変更された場合だけ実行

シートのモジュールに書くこと

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ExitHandler
    Application.EnableEvents = False ' イベントの二重発火防止
 
    ' A1が変更された場合だけ CheckTxtFiles を実行
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        CheckTxtFiles
    End If
 
ExitHandler:
    Application.EnableEvents = True  ' イベントを必ず元に戻す
End Sub