Dear friends
Someone can tell me why this simple macro doesn’t work?

Public Sub Pippo()
For j = 2 To 50
If Cells(j, 2) = "" Then
Exit For
End If
If Cells(j, 2) = "COPPIA RU*" Then
Cells(j, 4).Value = Cells(j, 4) * 2
End If
Next j
End Sub

Thank you very much for your help

I have attached a exampl

Attachment filename: pippo.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=43382
--
Message posted from http://www.ExcelForum.com