VBA .PutInClipboard error

[westc4]

I am using Excel 2010 and have an error with a macro that I have used for the last two years with out a problem. Now when I attempt to run the macro it errors out at .objData.PutInClipboard The issue only happens every other time I run it?

I have two text boxes that get the information that needs to be copied and then pasted both in excel and then again as the file name. Here is what I have...

    Dim actName As String
    Dim actNumber As String
    Dim objData As DataObject
    Dim strClipBoard As String
    Set objData = New DataObject

    actName = InputBox("Please enter the Account Name", "Account Name")
    actNumber = InputBox("Please enter Payer Number", "Payer Number")
    Range("A1").Value = actName & " - " & actNumber

    objData.SetText ""
    objData.PutInClipboard
    strClipBoard = actName & "-" & actNumber
    objData.SetText strClipBoard
    objData.PutInClipboard    

    
    Application.Dialogs(xlDialogSaveAs).Show

When I debug the problem appears to be at the objData.PutInClipboard

Since I use this macro over 100 times it is really annoying that this has starting happening... I have tried to clear the clipboard, but that does not seem to work with the issue...

help please

 

[Norie]

What's the error?

Also, what are you using the clipboard for?

 

[westc4]

What's the error?

Also, what are you using the clipboard for?

Run-Time error '-2147221040 (800401d0)':

DataObject:PutInClipboard OpenClipbard Failed


I use the clipboard to name the file when it is saved-as and then again as the subject line when the files is emailed.

Thank you,

 

[Norie]

Do you mean you are pasting the filename into the save as dialog?

If you do there's no need to do that, you could use something like this instead.

  Application.Dialogs(xlDialogSaveAs).Show strClipBoard

 

[westc4]

Yes, thank you I will add that addition to the code, but I am still getting the error every other time I run the macro.

Any ideas on how to correct this?

 

[Norie]

If you use what I suggested you wouldn't need to use the clipboard.

 

[westc4]

I can do that. I still use the copied data as an email subject line, but I can work around that.

Thank you

 

[Norie]

Can you post the code for the email?

 

[westc4]

Can you post the code for the email?

I don't have the email as part of the macro at this time.