Sub Enter_Values()
Dim rng As Range
Set rng = Range("A1:A5000")
For Each xCell In rng
xCell.Value = xCell.Value
Next xCell
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/10/2013 7:33 am