Can you do this -

dim sName as string

sName = ""
on error resume next
sName = activeworkbook.styles("Bad").NameLocal
on error goto 0

if len(sName) then
'code
rngLoop.Style = sName


Also, what do you get with this

with activeworkbook.styles("Ongeldig")
debug.? .Name, .NameLocal
end with

and can you do this
Set sty = activeworkbook.styles("Bad")

Regards,
Peter T


"Wouter HM" wrote in message
...
Hi Peter,

I am using something like

For Each rngLoop in Range("MyRange").Cells
If rngLoop.Value < 0.7 Then
rngLoop.Style = "Bad"
End If
Next

In My Dutch version I get an error on "Bad" while compiling.


Wouter