On Sun, 30 Aug 2009 03:03:06 -0700, Hazel
. wrote:

Hi Mike

Thanks for the quick reply having a problem with your macro

Sub sonic()
Set MyRange = Range("I2:o200")
For Each c In MyRange
If IsNumeric(c) And Len(c) 0 Then
!!!c.Value = WorksheetFunction.Choose(c.Column, 0, 0, 0, 0, 0, 0, 0, 0,
"A", "B", "C", "D", "E", "F", "G")!!! fonts on these two lines all in red
'am I missing something???
End If
Next
End Sub

It's a problem with copying the code from a Usenet posting; you
sometimes pick up unintended line breaks. Make sure that you get rid
of the line break between the last 0, and the "A" so that it all
appears on the one line.