% Function FnSelected(Item1, Item2) If UCase(Trim(Item1)) = UCase(Trim(Item2)) Then FnSelected ="Selected" End If End Function %>