"Algemeen bruikbare" functie

[jheesterbeek]

Hoi,

Ik heb een functie in een werkblad gemaakt die een vraagteken in gekleurde cellen plaatst. Deze functie werkt prima in dit werkblad.
Nu zou ik graag zien dat ik deze functie ook in andere werkbladen kna gebruiken en heb deze daarom gekopieerd naar persnlk.xls
Wart moet ik aanpassen om deze funcite "overal" te laten werken?

Function Check_kleur(Range1)
On Error GoTo ErrorHandler
Dim objCell As Range

Application.Volatile
If ActiveSheet.Name <> "Database" Then Exit Function

For Each objCell In Intersect(Range1, _
Range1.Parent.UsedRange)
If objCell.Interior.ColorIndex <> xlNone Then _
Check_kleur = 1
Next objCell
If Check_kleur <> 1 Then
Check_kleur = ""
End If
Exit Function
ErrorHandler: ' Hier wordt fout afgehandeld
End Function

 

[LucB]

Als je deze regel verwijdert:

If ActiveSheet.Name <> "Database" Then Exit Function

zal hij het op bladen met een andere Naam ook doen.