Option Explicit

Sub Main()
Dim Row As Range
Dim Index As Integer
Index = 5
Set Row = Worksheets("Sheet1").Range("A1:A100")
Row.Rows(Index).Cells(Row.Rows(1).Cells.Count) = ComboBox.Value
End Sub

--
Bob Kilmer


"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