hello friends,
i am trying to activate a cell in a "range" so that i can make an entry in three consecutive cells using "offset" property but i am getting an error that says "application defined or object-defined error"
can anyone tell me what i am doing wrong

code:
project = InputBox("enter the project number") 'obtain project number from user
name = InputBox("enter the customer name") 'obtain customer name from user

i = 4
For Each num In Range("number") ' i have defined a range called "number" in "sheet3" of active workbook and the range is from B4 to B33
'using variable i from 4 to 33 to navigate the range using co-ordinates
If num.Value = nill Then 'find a nill cell in the range
Worksheets("sheet3").Range(Cells(i, 2)).Select 'trying to select the range this part gives error
Exit For 'once found a nill cell exit the for loop
End If

i = i + 1
Next

ActiveCell.Offset(0, 0).Value = project 'feeding data in the cells using offset property
ActiveCell.Offset(0, 1).Value = name
ActiveCell.Offset(0, 2).Value = Now()






PS: Looking forward to the relevant help.thanks in advance