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!!!
 

Excel Facts

Does the VLOOKUP table have to be sorted?
No! when you are using an exact match, the VLOOKUP table can be in any order. Best-selling items at the top is actually the best.

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.
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,168,030
Messages
5,856,935
Members
431,841
Latest member
jaybeem

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top