Runtime 438???

[Tushar Patel]

I have received an excel file containing macros from a school. It supposed to
be a game called Blockbusters. When I open the file, I try to run the macros,
but I get a runtime error 438 and when I try to debug the macro it highlights
this line "Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 or 12 or 13".
Here is the coding:-

Sub WHITE()
'
' WHITE Macro
' Macro recorded 14/12/2004 by Winstanley College
'

'

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub

Sub BLUE()
'
' BLUE Macro
' Macro recorded 14/12/2004 by Winstanley College
'

'
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub

Sub YELLOW()
'
' YELLOW Macro
' Macro recorded 14/12/2004 by Winstanley College
'

'
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub

It happens for the other 2 colours. Is there supposed to be more files for
the macros. They only sent me a excel file.