Cop VBA to remove " " marks

Hello,

I have a button when clicked it generates and copies specific text. This is then pasted to another program that uses plain text. When pasted the text has the " mark at the beginning and end. Is there any way to remove this?

Current VBA is:

Select Case Range("H5").Value
        Case "ABC
            If Range("H5").Value = "ABC" Then
                Range("C15").Value = "Statement 1 - BLAH BLAH BLAH”
                Range("C16").Value = "Statement 2" & vbNewLine & "BLAH BLAH BLAH"
                Rows("14:14").EntireRow.Hidden = False
                Rows("15:15").EntireRow.Hidden = False
                Rows("16:16").EntireRow.Hidden = False
                Range("C15:C16").Copy
            End If
     End Select

This produces the result of "Statement 1 - BLAH BLAH BLAH" "Statement 2 - BLAH BLAH BLAH". I want it to paste as Statement 1 - BLAH BLAH BLAH Statement 2 - BLAH BLAH BLAH.

If anyone can help it would be greatly appreciated.

Thanks

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Well your file looks for some library that I don't have. But I think your Workbook_Open routine will effect your quote elimination with this tested added one liner (in red):

For Each wsSheet In wbBook.Worksheets
          If Not wsSheet.Name = "Blank" Then wsSheet.Activate
             With ActiveWindow
                .DisplayHeadings = False
                .DisplayGridlines = False
             End With
                ActiveSheet.UsedRange.Replace """", ""
       Next wsSheet