Run-Time Error '438'

paulandrews

New Member
Joined
Feb 20, 2011
Messages
10
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:
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
Code:
.TintAndShade = 0

Really appreciate your help!!!
 

Some videos you may like

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.

repairman615

Well-known Member
Joined
Dec 21, 2009
Messages
1,885
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.
 

Watch MrExcel Video

Forum statistics

Threads
1,108,708
Messages
5,524,431
Members
409,577
Latest member
Dwg

This Week's Hot Topics

Top