Copy code problem

[Masta]

Private Sub CommandButton13_Click()
With New MSForms.DataObject
.SetText TextBox13.Text
.PutInClipboard
End With

ActiveWindow.WindowState = xlMinimized
End Sub

I have a problem that I need help with. When I use the command and have some data in TextBox13 then I successfully copy that content and that's great, but when there is no content in TextBox13 and I use the command I get an error. How do I solve this problem?

 

[DanteAmor]

Maybe:

Private Sub CommandButton13_Click()
  If TextBox13.Value <> "" Then
    With New MSForms.DataObject
      .SetText TextBox13.Text
      .PutInClipboard
    End With
    ActiveWindow.WindowState = xlMinimized
  End If
End Sub

 

[Masta]

Great! This helps a lot!

 

[DanteAmor]

Im glad to help you, thanks for the feedback.