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!
Code:
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