セルの内容をメモ帳へ送る

概要
コード

概要

アクティブセルの内容をメモ帳に送ります。
セル内改行(LF)はWindowsの改行コード(CRLF)に変換してから、クリップボード経由でメモ帳に渡しています。

セルにたくさん書くことが多いため、そのままだと見づらいのをメモ帳に貼ってみることがあります。（見るためだけの参照用と割り切っています。）Excel側でなんとかしてくれたらありがたいのですが、そもそもセルにたくさん書くような利用用途は想定してないだろうなと思います。

コード

Sub セルの内容をメモ帳へ送る()

    Dim strText As Variant
    
    '改行コードを置換
    strText = Replace(ActiveCell, vbLf, vbCrLf)
    
    'クリップボードに格納
    With CreateObject("Forms.TextBox.1")
      .MultiLine = True
      .Text = strText
      .SelStart = 0
      .SelLength = .TextLength
      .Copy
    End With
  
    '待ち
    Application.Wait Now() + TimeValue("00:00:01")
    
    'メモ帳起動して貼り付け
    Shell "notepad", 1
    SendKeys "^V", True
    
End Sub