Type Info:
Resname As String
Dim Group As Group Dim Resname As String Set Group = Application.ActiveGroup If Not(Group Is Nothing) Then Resname = Group.Resname End If