他のシート参照マクロ

Sub Macro2()
'
' Macro2 Macro
'

'
Range("C4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("B5").Select
ActiveCell.FormulaR1C1 = "2"
Range("B4:B5").Select
Selection.AutoFill Destination:=Range("B4:B23"), Type:=xlFillDefault
Range("B4:B23").Select
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:C23")
Range("C4:C23").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'

'
ChDir "C:\Users\kazuki\Desktop"
Workbooks.Open Filename:="C:\Users\Desktop\Book1.xlsx"
Range("E9").Select
Windows("Book2.xlsx").Activate
Range("G5").Select
ActiveCell.FormulaR1C1 = "=[Book1.xlsx]Sheet1!R5C6"
Range("G6").Select
End Sub