Sub test1()
<pre><code>Sheets("Sheet1").Range("B2") = "はじめてのマクロ"</code></pre>
End Sub