Sub CATMain()
	Dim str1
	Dim str2
	Dim str3
	Dim theview As String

	On Error Resume Next
  
	theview = DrwSheet.Views.ActiveView.Name
	'MsgBox "Aktiv: " & theview
	For i = 1 To DrwSheet.Views.Count	
		DrwSheet.Views.Item(i).GetViewName str1, str2, str3
		'MsgBox str1 & str2 & str3
		If InStr(str1 & str2 & str3, "Background View") <> 0 Then
			DrwSheet.Views.Item(i).Activate  
			Set DrwTexts = DrwSheet.Views.Item(i).Texts
		End If
	Next
	Err.Clear

...
...
...
...
...
...
...

	DrwSheet.Views.Item(theview).Activate  
End Sub