Shocker.Pro,
так тоже не открывает, вообще никакой не хочет открывать...

fileToOpen = Application.GetOpenFilename("Text Files (*F_1310.txt), *F_1310.txt", , "Ф_1310", f1310)

If fileToOpen <> False Then

If Right$(fileToOpen, 10) = "F_1310.txt" Then
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\F_1310.TXT", Origin:= _
866, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:=":", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), 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)), _
TrailingMinusNumbers:=True
MsgBox "Open " & fileToOpen

Else
MsgBox "Нужно выбрать файл - f_1310.txt!!!"
End If
End If

Shocker.Pro,
вот никак не получается... может если не трудно, подскажите по коду что поправить?

Shocker.Pro,

перечитал все, и не дошло... делал по-разному, и все равно, или может выбрать любые файлы, или вообще только msgbox. А так чтобы мог открыть только f_1310.txt, а при выборе другого только msgbox не получается...

Shocker.Pro,

а если точнее ткните меня носом! что конкретно поменять?