Option Explicit

Sub test()
Dim book1 As Workbook
Dim str As String

Set book1 = Workbooks("b.xls")
str = book1.Worksheets("Sheet1").Range("a1:c1").Value

Range("a1:c1").Value = str

End Sub

2つのブックがありまして
ブックb.xls　の　a1:c1　に書かれている数値を
ブックa.xls　の　a1:c1　へコピペするコードを書いてますが、
上のコードですと　Dim str As String　の型がエラーを起こしますが
何という型にすればいいのでしょうか？（無提議で動いてますが）

また上記のコードをなるべく変数を使わずにもっと完結に記述することは可能でしょうか？
宜しくお願い致します。