Колесников Алексей Николаевич:
А чему равно wBook? Нельзя ли получить значение с помощью, например, MsgBox после Sub там, где это не получается. А также количество Ваших открытых книг.
Похоже, у Вас не открыты по какой-то причине все нужные Вам книги (например, для некоторых пользователей не хватает прав доступа), или wBook<1 - об этом и говорит сообщение, что указанная книга вне допустимого диапазона 1<=wBook<=Excel.Workbooks.Count.

Попробуйте вставить отладочное сообщение.

MsgBox (" Книга=" + CStr(wBook) + " Всего Книг=" + CStr(Excel.Workbooks.Count))

вот что выдаёт MsgBox:

Книга=601z Всего Книг=3

на одих компьютерах работает на др.нет. ОС на всех одинаковая. excel тоже одинаковые.

Sub test()
'запрашиваем полное имя txt файла
fZ = Application.GetOpenFilename("Расшифровка задолженности (*.txt), *.txt)")
Call Zadolg(fZ)
'получяем имя файла без пути
fZ = Mid(fZ, InStrRev(fZ, "") + 1)
fZ = Mid(fZ, 1, InStr(fZ, ".") - 1)
Call zadolgDate(fZ, fZ)

End Sub

Sub Zadolg(zFile)
Workbooks.OpenText Filename:=zFile, Origin:=866, StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(12, 1), Array(20, 2), Array(41, 1), Array(53, 1) _
, Array(65, 2), Array(73, 2), Array(81, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=False
Cells.EntireColumn.AutoFit
End Sub

Sub zadolgDate(wBook, wList1)
Dim wb As Excel.Workbook
Set wb = Excel.Workbooks(wBook) 'получаем экземпляр книги1

MsgBox ("OK")
End Sub