SucheBKNorm

Sub SucheBKNorm()
'********************************************************************
	On error resume next
	Application.ActiveWindow.Title.StartOfField
	Application.ActiveWindow.Title.WordRight
	Application.ActiveWindow.Title.EndOfField true
	Application.ActiveWindow.ClipBoard = Application.ActiveWindow.Title.GetSelection()
	Application.ActiveWindow.Title.DeleteSelection
	' msgbox Application.ActiveWindow.ClipBoard
	Application.ActiveWindow.Command "rec n;f bk " & Application.ActiveWindow.ClipBoard, True
End Sub