Excel Makro

steni

Fizikalc
5. jan 2008
682
39
28
Ravne na Koroškem
Spodnji Makro mi deluje

Sub MarlettUnCheckAll()
With ActiveSheet.Range("A5:A100")
.Font.Name = "Marlett"
.Value = vbNullString
End With
End Sub

Ko zaščitim list, makro ne deluje več (napaka v : .Value = vbNullString).
Kako ga naj popravim, da bo delal tudi pri zaščitenem listu.
Celice A5 do A100 so nezaščitene.

Vsaka pomoč je dobrodošla.