kopier til notesblok

Hvordan skal de enkelte celler adskilles?

Måske noget i den retning:

Sub ÅbnOgKopierCellerTilNotespad()

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("notepad")
Application.Wait (Now + TimeValue("0:00:01"))

Dim mycells
mycells = Range("f7:f31").Value

For Each c In mycells
  WshShell.SendKeys c
  WshShell.SendKeys "{ENTER}"
Next

End Sub

Det der skal kopieres er en tekst

tak til tjp det var lige det rigtige

tjp, du må gerne lige skrive et svar så jeg kan give piont til dig :)

Så gerne.. :-)