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

"Julie" wrote in message
...
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