Ajuda para copiar conteudo do XLS e visualizar no notepad

Boa noite a todos,
sou novo no forum e estou com um problema,
tenho uma planilha do excel com informações que utilizo no dia a dia,
porem quero criar uma macro no vba para abrir ele no notepad,
no word o codigo abaixo funciona mais não consigo colocar para o notepad.

Private Sub CommandButton1_Click()
   Dim MS As Object
   Worksheets("VDSLCoge11").Range("P1:P75").Copy
   Set MSWord = CreateObject("word.Application")
   MSWord.Visible = True
   MSWord.ScreenUpdating = True
   With MSWord
       With .Documents.Add
              .Range.Paste
       End With
            .WindowState = wdWindowStateMaximize
   End With
  End Sub

Desde já agradeço.

Ola;

As salas de duvidas e exemplos, são somente de Ms Access, este tópico será movido para Off-Topic.