Are you getting an error message?
What happens if you run
Sheets("Sheet1").Range("A1").Value = "111"