Функция флажка для вставки значения, если флажок

Question

Я пытаюсь сделать так, чтобы, если флажок 82 не отмечен, то ячейка J39 оставалась пустой, но если флажок установлен, значение равно 3,8. В строке "Sheet.Range("J39").PasteSpecial Paste = "3.8"" я получаю сообщение об ошибке 1004

Sub ChckBx_Deisel_Engines()

Dim Sheet As Worksheet: Set Sheet = ThisWorkbook.Worksheets("NSR FORM")
    If Sheet.Shapes("Check Box 82").ControlFormat.Value = 0 Then
        Sheet.Range("J39").PasteSpecial Paste = ""
    End

    ElseIf Sheet.Shapes("Check Box 82").ControlFormat.Value = 1 Then

        Sheet.Range("J39").PasteSpecial Paste = "3.8"
    End If
End Sub

Любые идеи о том, как выполнить эту функцию лучше, также с благодарностью

Answer 1

Догадаться! Вот код, который я изменил, чтобы заставить эту функцию работать

 Sub Button82_Click()
     If ThisWorkbook.Worksheets("NSR FORM").Shapes("Check Box 82").OLEFormat.Object.Value = 1 Then
     Range("J39").Value = "3.8"

     Else
     Range("J39").Value = ""
     End If

 End Sub

Answer 2

Dim Sheet As Worksheet: Set Sheet = ThisWorkbook.Worksheets("NSR FORM")
    If Sheet.Shapes("Check Box 82").ControlFormat.Value = 0 Then
        Sheet.Range("J39").PasteSpecial Paste = "" :Exit sub <<< to exit direct from your project

    ElseIf Sheet.Shapes("Check Box 82").ControlFormat.Value = 1 Then

        Sheet.Range("J39").PasteSpecial Paste = "3.8"
    End If
End Sub