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