Sub ChangeCellValue() Range("A1").Value = "Hello, World!" End Sub