Sub isinilaikeselA5()
    Application.Workbooks("Book1").Worksheets("Sheet1").Range("A5").Value = 20
End Sub

http://www.youtube.com/watch?v=aQKXzOJ4jSE&feature=player_embedded