Boa noite estou com dificuldade para criar um aquivo do notepad apartir de intevalo do excel,
no word funcionou com o codigo abaixo, porém não consegui fazer para o notepad, apenas para visualizar.
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
se alguém puder me ajudar ...