Как записать в ячейки

[Алекс7]

Прошу помощи! Задача состоит в том, что нужно из файла считать в ячейки, я не могу записать в ячейки. В нете похожие примеры не нашли.... Есть работающий код где значения выводятся в MsgBox:

Sub Test()
Open "C:\Text.txt" For Input As #1
Dim s As String
While Not EOF(1)
Input #1, s
MsgBox s
Wend
Close #1
End Sub

[Казанский]

Sub Test()
Open "C:\Text.txt" For Input As #1
Dim s As String, c as range
set c=range("A1") 'первая ячейка
While Not EOF(1)
Input #1, s
c=s
set c=c(2)
Wend
Close #1
End Sub

не проверял

[Алекс7]

Казанский, я попробовыла запустить Ваш текст - все работает. Огромное спасибо!