.range (ContRow & ":" & ContRow) .entirerow.Delete

Question

У меня проблемы с линией:

.range(ContRow&":"&ContRow).entirerow.Delete 

Это макрос:

Sub Cont_Delete()
    With Sheet1
        If MsgBox("Are you sure you want to delete this record?", vbYesNo, "Delete 
         Record") = vbNo Then Exit Sub
        If .Range("B3").Value = Empty Then Exit Sub
        ContRow = .Range("B3").Value.Range(ContRow&":"&ContRow).EntireRow.Delete.Range("D18").Select
    End With
End Sub

Сообщение об ошибке:

Syntax error and compile error expected: list separator or )

Answer 1

вы объединяете строки кода

вам, скорее всего, нужно это:

Sub Cont_Delete()
    With Sheet1
        If IsEmpty(.Range("B3")) Then Exit Sub
        If MsgBox("Are you sure you want to delete this record?", vbYesNo, "Delete Record ") = vbNo Then Exit Sub
        .Rows(.Range("B3").Value).EntireRow.Delete
        .Range("D18").Select
    End With
End Sub