Помогите рабобраться с ошибкой

[kuhtiov]

Помогите, пожалуйста, решить проблему. Нужно создать форму в Excel. При запуске приложения вылетает ошибка. Что не так?




Код
If .Range("Сервис.ВалСч").Value = 1 Then
.Range("Сервис.СообСч").Value = .Range("Сервис.ВалСч").Value + 1
End If

[Amed]

С этим кодом должна использоваться конструкция With.
Ты не указываешь, к кому относятся свойства.

[GSerg]

Т.е. текст ошибки не говорит тебе ни о чём?

[kuhtiov]

Спасибо за беспокойство. Уже решили.