next simple code sample !

'Code to set the current active cell value to something

Sub SetValue()
Worksheets("Sheet1").Activate
ActiveCell.Value = 35
End Sub