Excel VisualBasic Script

Sub cellValueReference()
    Workbooks("Book2").Sheets("Sheet2").Cells(4, "A").Value = "VBA is fun!"
End Sub