For each cell in each row

[Stevenn]

I've got some data in several columns in my sheet and want to send it to my access database. I have tried to work with following code:

For Each rngRow In Worksheets("Sheet2").Range("A1:C10").Rows

For Each rngCell In rngRow

MsgBox rngCell.Value

Next

but i can't solve my problem. How can I get the data in each columns in each row?

 

[BiocideJ]

You were pretty close.
Try this...

For Each rngCell In Worksheets("Sheet2").Range("A1:C10").Cells
MsgBox rngCell.Value
Next

 

[Stevenn]

You were pretty close.
Try this...

For Each rngCell In Worksheets("Sheet2").Range("A1:C10").Cells
MsgBox rngCell.Value
Next

Thanks for your answer. I would insert a row in my table for each row in my sheet and insert data for each field in each row. I solved my problem with following code

For Each rngRow In Worksheets("Sheet1").Range("A1:D105").Rows

   objConnection.Execute ("INSERT INTO table (fields) VALUES ('" & rngRow.Columns(1).Value & "')")

Next