Ereignis "BeforeSave" - ".Find" geht nicht?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
dim Gru as string
Gruppen Gru
End Sub

>>
Sub Gruppen(Gru as string)
dim ws_akt as object: ws_akt = activesheet
dim cf1 as range: Set cf1 = ws_akt.range("A:A").find("Gruppe",LookIn:=xlValues,LookAt:=xlwhole)
Gru = ws_akt.cells(cf1.row,2)
End Sub

>>
Wenn ich die Variable Gru aus dem Modul Gruppe an einer anderen Stelle füllen lasse, dann klappt es. Nur nicht, wenn ich über das Ereignis "BeforeSave" komme.
Hat hier jemand eine Idee, wie man das lösen könnte? Ich möchte mich nicht festlegen auf "cells(3,2)".
Gruß,
Oliver.