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