fejl i en rutine ved delt ark.

Hejsa

Jeg har følgende rutine, som fungere fint i hvis arket ikke er delt, men deles arket, så får jeg fælgende fejlmeddelelse: Kan ikke angive egenskaben mergecells for klassen range. Jeg kan ikke selv greje problemet og håber derfor på et kvikt hoved som kan gennemskue problemet.

Sub CmdGem_Click()Dim medlem_exist As Boolean

Application.ScreenUpdating = False

medlem_exist = check_medlem_exist(txtmedlem_reg)
If medlem_exist = True Then Exit Sub

Worksheets(ark).Select

Range("b3").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.count, 0).Activate
    rk = ActiveCell.Row
 
skriv_data (rk)

Range("b4").CurrentRegion.Select
    skrift
    linier
    formater
   
    Range(Range("b4"), Cells(rk, 8)).Select ' vælger område

    Selection.Sort Key1:=Range("b4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   
    Range("B4").Select

Worksheets(ark).Select
Range("b4").Select

Unload FrmReg
Application.ScreenUpdating = True

End Sub