One quick way
Sub gradechange()
lr=cells(rows.count,"b").end(xlup).row
myarray = Array("a", "b", "c", "d")
For Each l In myarray
Range("b2:g" & lr).Replace l, "g"
Next l
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Julie" <(E-Mail Removed)> wrote in message
news:B03E3A1B-2107-4E20-ABF4-(E-Mail Removed)...
> Hi,
> I keep a chart that indicates students' grades in various courses (column
> A
> lists the student name, Row 1 the course and Rows 2-22 and Columns B-G
> list
> the grades received: A,B,C,D, F, Inc). Once a month, I need to share
> information that students received a grade, but not indicate which grade
> they
> received, unless they received an F or Inc, which should stay noted.
>
> Is there a way to change all instances of "A" "B" "C" "D" to "G"?
>
> Or can someone think of some other way to achieve what I'm trying to do?
> Thanks so much for any assistance.
>
> --
> Julie