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