Excel to Word

[wtnelso]

I currently have a code that exports the selected items to Word, but I want to modify the code so that it will give a message box that will ask if I want to use the currently opened sheet, or open a new one? How could I modify this code to do so? What could be put into the Cases below to accomplish that? Thank you!

Sub Excel_to_Word()
    Dim appWord As Word.Application
     
    Set appWord = New Word.Application
     
    If appWord.Visible = False Then
        appWord.Visible = True
    ElseIf appWord.Visible = True Then
        Response = MsgBox("New Sheet?", vbQuestion + vbYesNo)
        Select Case Response
        Case Is = vbYes
    
        Case Is = vbNo
        
        End Select
    End If
    Selection.Copy
     
    appWord.Documents.Add.Content.Paste
     
End Sub
     
End Sub

 

[wtnelso]

Thanks Ed! I really appreciate it. As I look through the code, which portion copies and pastes, or do I need to insert that?

 

[EdNerd]

There is nothing in there that copies and pastes.
You will have to determine:
-- how to identify the book, sheet, and range you want to copy
-- where and how to position the insertion point in your document
-- how you want the information to get pasted into Word

 

[wtnelso]

That sounds good. I really appreciate your help.