Run-Time Error '438'

[paulandrews]

Hi Everyone,

I'd really appreciate your help - I am getting a run time error '438' on a workbook that I have to migrate from MS office 07 to MS office 03. Below is the code:

Sub Button14_Click()
'
' Button14_Click Macro
'
'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "T"
    Range("C5").Select
End Sub
Sub Button16_Click()
'
' Button16_Click Macro
'
'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "O"
    Range("D6").Select
End Sub
Sub Button17_Click()
'
' Button17_Click Macro
'
'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "O"
    Range("C5").Select
End Sub
Sub Button18_Click()
'
' Button18_Click Macro
'
'
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "V"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("C6").Select
End Sub
Sub Button19_Click()
'
' Button19_Click Macro
'
'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "T"
    Range("C6").Select
End Sub
Sub Button20_Click()
'
' Button20_Click Macro
'
'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "O"
    Range("C6").Select
End Sub
Sub Button21_Click()
'
' Button21_Click Macro
'
'
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "V"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("C7").Select
End Sub
Sub Button22_Click()
'
' Button22_Click Macro
'
'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "T"
    Range("C7").Select
End Sub
Sub Button23_Click()
'
' Button23_Click Macro
'
'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "O"
    Range("C7").Select
End Sub
Sub Button24_Click()
'
' Button24_Click Macro
'
'
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "V "
    With ActiveCell.Characters(Start:=1, Length:=2).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("C8").Select
End Sub
Sub Button25_Click()
'
' Button25_Click Macro
'
'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "T"
    Range("C8").Select
End Sub
Sub Button26_Click()
'
' Button26_Click Macro
'
'
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "O"
    Range("C8").Select
End Sub

... with the error at

.TintAndShade = 0

Really appreciate your help!!!

 

[repairman615]

Hello,

Welcome to the board!

Out of the help file:

Not all objects support all properties and methods. This error has the following cause and solution:

• You specified a method or property that doesn't exist for this Automation object. See the object's documentation for more information on the object and check the spellings of properties and methods.
• You specified a Friend procedure to be called late bound. The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).


I am thinking remove that line, or comment it out to test.