title: Check box function to paste value if check
body: <p>I am trying to make it so that if check box 82 is not checked then cell J39 is left blank but if it is checked the value is 3.8.  On the line "Sheet.Range("J39").PasteSpecial Paste = "3.8"" I am getting a error message 1004 </p>
  
  <pre><code>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
  </code></pre>
  
  <p>Any Ideas on how to perform this function in a better way would also begreatly appreciated</p>