[RESOLVED] Pasting code to cell

[si_the_geek]

Is there a particular reason to be using the Clipboard?

If not, try this instead:

Private Sub cmdDoIT_Click()
    
    If (txtLogNo.Value = "1") And (chkTaken.Value = True) Then
        Sheets("Brochures").Range("F4").Value = txtQuantity.Value 
    End If
...
End Sub