Apply Conditional Formatting to excel from Access 1

[MikeAuz1979]

Hi using access 2000 and xl2000 I have an access db that runs some ADO code and then dumps the results to xl. As an extra help to the user I want to apply some conditional formatting. The con formatting code works fine in xl but has the error invalid procedure call or arguement in access.

Anyone have any ideas as to why the .selection.FormatConditions lines aren't working?

Thanks for any help
Mike

----Code Start----
'ADO stuff above here omitted
Set acapp = CreateObject("Excel.Application")
acapp.Workbooks.Add
acapp.displayalerts = False
With acapp.worksheets("Sheet1").Range("A2")
For b = 0 To rst.Fields.Count - 1
.offset(-1, b) = rst.Fields(b).Name
Next
.CopyFromRecordset rst
End With
With acapp
.Visible = True
.Cells.Select
.Cells.EntireColumn.AutoFit
.Range("G:G,K:K").NumberFormat = "dd\/mm\/yyyy"
.Sheets("Sheet1").Name = RUnits(i)
'Red and bold the line if the Yearly Overrun Count >= Yearly Allowed Count/2
.Range("A2:K10000").Select
.selection.FormatConditions.Delete
.selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$I2>=$H2/2"
.selection.FormatConditions(1).Font.Bold = True
.selection.FormatConditions(1).Font.ColorIndex = 3
.Range("A2").Select
.activewindow.FreezePanes = True
.Sheets(Array("Sheet2", "Sheet3")).Select
.activewindow.SelectedSheets.Delete
End With
----Code Start----

 

[PHV]

If you use late binding you may consider this:
.Selection.FormatConditions.Add Type:=[!]2[/!], Formula1:="=$I2>=$H2/2" '2=xlExpression

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MikeAuz1979]

Works great, Thanks PHV!