Установка текста в ячейку

[d7d1cd]

Здравствуйте все! У меня не получается установить в ячейку текст. Код такой:

Код Выделить Развернуть

With ThisWorkbook.Sheets("Лист1")
.Range(.Cells(1, 1)).Value = "Текст"
End With

При выполнении ошибка. Подскажите, где я ошибся?

[vikttur]

Код Выделить Развернуть

.Cells(1, 1).Value = "текст"
.Range("A1").Value = "текст"
.Range(.Cells(1, 1), .Cells(1, 1)).Value = "текст"

[d7d1cd]

Спасибо. Заработало!

[Serge 007]

Код Выделить Развернуть

.[a1] = "текст"