I am not very experienced with VBA. I cannot figure out what is wrong with the below code. Please help me -

j = 1
Do While Not Cells(12, j) = "Product"
    j = j + 1
Loop
MsgBox "Product column = " & j

Well, in row 12th, some column has value 'Product' and i'm trying to find out which column has it.
Please help me
Thanks

I tested it and it seemed to work fine. Remember to translate the value of j (a number) to a letter. 1=A, 2=B ETC

or to get address
try this

Sub test()
Dim R As Range
Set R = Cells(12, 1)

j = 1
Do While Not R.Offset(, j) = "Product"
    j = j + 1
Loop
MsgBox "Product column = " & R.Offset(, j).Address

End Sub



Steve

Hi,

Text test is case sensitive.
Change your test like this

Do While Not UCase(Cells(12, j)) = "PRODUCT"


-vemaju

Instead of using ="PRODUCT" try using the LIKE statement

Do While Not UCase(Cells(12, j)) LIKE "*PRODUCT*"
    j = j + 1
Loop

MsgBox "Product column = " & j

Maybe the word "Product" is not at the beginning of the cell

Thanku all for ur help.
 It worked.