Using IF then to average grades on 4 point scale

I am a teacher and need to average grades using excell. Can you help me set up a macro that when it sees letter grades in certain columns that it will return the average of those grades in another column?
A=4
B=3
C=2
D=1
F=0