VBA - Fjern sideskift

Det må kunne klares med:

ActiveCell.PageBreak = False

Hej Sjap

Du er bare en redningsmand :-)

Jeg har kæmpet med noget i den retning, men ikke den enkle løsning :-)

Mit forsøg så således ud:

If Worksheets("rp").Rows(AktRowNo).PageBreak = xlPageBreakManual Then
      Rows(AktRowNo).PageBreak = xlPageBreakNone
  Else
      MsgBox "Den aktive række indeholder ikke et manuelt sideskift!", vbOKOnly
End If

Tak for hjælpen

TVC

P.S. Smider du et svar?

Hej Sjap

Jeg har forsøgt at lade VBA'en undersøge om der er et sideskift i den aktive række inden den aktivere fjern skdeskift.

If ActiveCell.PageBreak = False Then
    MsgBox "Den aktive række indeholder ikke et manuelt sideskift!", vbOKOnly
   
    Else
   
    ActiveCell.PageBreak = False
   
End If

Har du måske en løsning på dette?

TVC

Ved ikke lige hvorfor det ikke er muligt, men nedenstående skulle fungere:

If ActiveSheet.Rows(ActiveCell.Row).PageBreak = xlNone Then
    MsgBox "Den aktive række indeholder ikke et manuelt sideskift!", vbOKOnly
Else
    ActiveCell.PageBreak = False
End If

Det virker - TAK!

;0)