I think you'll have to be more explicit.

What value is in drwno?
What is CurrentDraw--a single cell or lots of cells?
What is/are the value/s in currentdraw

xcell is already a range.
Does xcell.Offset(0, x) really have something in it that looks like an address

When you do that for/next loop, what do you expect to happen?
You're really only doing:
Set tcell = Range(xcell.Offset(0, 8))

(or did you skinny down the code for testing?)



ranswert wrote:

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

--

Dave Peterson