Kindly help in the solution of this simple VBA Macro excel task?

[Josh1012]

Important - Kindly help in the solution of this simple VBA Macro excel task?

 

[mrshl9898]

Sub IDidntDoMyHomework()

Dim rownum as long
Dim mystr as string

rownum = 9

Do until cells(rownum, 1) = ""
If cells(rownum, 3) = "Metal" then
mystr = mystr & " " & cells(rownum, 1)
End if
rownum = rownum + 1
Loop

MsgBox mystr

End Sub

 

[Josh1012]

Thankyou but an error came, how to tackle it?

 

[Josh1012]

Thankyou but an error came, how to tackle it?

OK IT WORKED