Здравствуйте!
Есть процедура:
Код |
---|
Sub issue_a_warning(x As Long, Optional ByVal txt As String = "В строке есть замечания!")
If ActiveSheet.Cells(x, 2).Interior.Color <> vbRed Then
ActiveSheet.Cells(x, 2).Interior.Color = vbRed
ActiveSheet.Cells(x, 2).AddComment
ActiveSheet.Cells(x, 2).Comment.Text Text:=txt
ActiveSheet.Cells(x, 2).Comment.Visible = True
ActiveSheet.Cells(x, 2).Comment.Shape.Select True
With Selection
.AutoSize = True
End With
ActiveSheet.Cells(x, 2).Comment.Shape.Select False
End If
End Sub
|
которая успешно в другой процедуре вызывается как:
Код |
---|
issue_a_warning (cell.Row)
|
и безуспешно(компилятор говорит о синтаксической ошибке) так:
Код |
---|
issue_a_warning (cell.Row, "В источнике задвоение!")
|
В чем причина?