I
I.M. Shatner
I'm having trouble getting this macro to run in Excel. It stops at the line
in between the arrows, telling me "Complie Error: Type Mismatch". I'm a
complete novice at this so please help!
Sub BOM()
'
Dim myobject As Object
Dim object As String
Set oApp = myobject
oApp.Visible = True
oApp.cells.select
With selection.Font
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
oApp.selection.Rows.AutoFit
oApp.selection.Columns("A:A").select
oApp.selection.Font.Bold = True
oApp.selection.Range("A1").select
End Sub
in between the arrows, telling me "Complie Error: Type Mismatch". I'm a
complete novice at this so please help!
Sub BOM()
'
Dim myobject As Object
Dim object As String
Set oApp = myobject
oApp.Visible = True
oApp.cells.select
With selection.Font
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
oApp.selection.Rows.AutoFit
oApp.selection.Columns("A:A").select
oApp.selection.Font.Bold = True
oApp.selection.Range("A1").select
End Sub