I get a run time error when I run this procedure. It's probably something
simple but I can't figure out why it won't run. What am I doing wrong?
This is the procedu

Sub enteritem()
Dim a(8) As Range
Dim tcell As Range
Dim x As Integer
Dim xcell As Range
Dim drwno As Integer



'a(1) = draw
drwno = ActiveCell.EntireRow.Cells(2).Value
MsgBox (drwno)
drw = ActiveSheet.Range("currentdraw").Value
Set xcell = Range(drw & "itemno").Offset(drwno, 0)
For x = 3 To 8
Set tcell = Range(xcell.Offset(0, x))
Next
End Sub

thanks