Спасибо. А имя и путь так сделал
Dim fn, ii, jj, fnName, fnPath
fn = txtname 'полный путь
tochka = InStrRev(txtname, ".") 'последняя точка
slesh = InStrRev(txtname, "\") 'послед слеш
fnPath = VBA.Mid(txtname, 1, slesh) 'путь без имени
fnName = VBA.Mid(txtname...