Putting formula in cell based on find

[stevem]

Ok, need help getting a forumula into a cell based on a combo box
Basically, this is a small snippet of the code, that sets the name
were I need them, however as you can see, the last line is putting th
average function in a cell, but it's set to a specific range.

I need for it to place an average function starting at row 2 o
whatever column rng1 returns going to row 800


Set Rng = Worksheets("Master").Range("A3").End(xlDown)(2)
Set rng1 = Worksheets("Light Class").Range("A1").End(xlToRight)(1, 2)
Rng = cbName
rng1 = cbName
rng1.Offset(1, 0) = CDbl(tbScore)
Rng.Offset(0, 1) = "=AVERAGE('Light Class'!C2:C800)"

Thanks in advance,
Stev

 

[Tom Ogilvy]

Rng.Offset(0, 1) = "=AVERAGE('Light Class'!" & _
rng1.offset(1,0).Resize(799).Address & ")"

 

[stevem]

Tom,

Thanks, works like a charm, great replies as usual.

Stev