Just another option if your Range is one column wide.

Sub Demo()
Dim Index As Long
Index = 6

[Sheet1!A1:A100].Item(Index) = "ComboBox.Value"
' or
Worksheets("Sheet1").Range("A1:A100")(Index) = "ComboBox.Value"
End Sub

If you are working with a Row (r) and Column (c) offset, maybe something
like this...

Sub Demo2()
Dim r As Long
Dim c As Long
r = 6
c = 3

[Sheet1!A1:A100].Item(r, c) = "ComboBox.Value"
'or
Worksheets("Sheet1").Range("A1:A100")(r, c) = "ComboBox.Value"
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Dave Baranas" wrote in message
...
I am stuck on how to do the following:

I made a 2 variables in a module

Public Row as Range
Public Index as Integer

On my worksheet I wrote

Set Row = Worksheets("Sheet1").Range (A1:A100) ' This is the range of
cells where I want to write to

Then depending on where I want to write to I use this line to put the
value of a combobox into the desired Row on by setting a Index to a
value based on a bunch of IF statements before hand

Worksheets(Sheet1).Range("Row(Index)") = Combobox.Value

All I want to do is put some text into a certain Row I defined as the
range "Row"

And select the right index of the range so the text gets to the right
row in the collumn

I have downloaded the entire newsgroup into my hardrive so I could
search for keywords but no luck. I am sure this question is so easy
nobody has asked it. But I am stuck and any help would be appreciated

Regards,

Dave Baranas