Delete items start by "R" in organizer of Ms Project VBA

Hi,

I'm looking for a solution for delete all items starts by "R" in Views of Organizer in Ms project.

My Code :

 For Each nom In ActiveProject.TaskViewList
   If Left(nom, 1) = "R" Then
       
         OrganizerDeleteItem Type:=pjViews, FileName:="Global.MPT", Name:=nom
     
   End If
Next nom

The error is : Run Time Error 1101. Wrong name

Someone can help me

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.