Проблема решена:
Код:
Sub User()
If Range("A1") = "" Then
MsgBox "Не заполнены ключевые данные!!!"
End If
If Range("A1") <> "" Then
If Range("A2") <> "" Then
Range("A2") = Range("A2") * Range("A1") / 10
End If
If Range("A3") <> "" Then
Range("A3") = Range("A3") * Range("A1") / 10
End If
End If
End Sub
Никак не мог догадаться как сделать так, что бы не выполнялась процедура расчета при пустой ячейке А1. Оказалось что нужно было заключить в условие всю процедуру.
