Automatisk sideskift i Excel

Søg efter værdien og indsætte et sideskift - via VBA

ok  har du et forslag til koden?

Kan forsøge - hvilken kolonne findes nævnte værdi i?

hej er i kolonne A  består af 3 bogstaver  på den måde at de fremkommer en gang imellem . Altså der forekommer blanke i kolonne A.

f.eks

AAA



BBB



CCC

D.v.s. når der har være blanke og herefter er 3 bogstaver - så skal der "skiftes".

ja korrekt

Rem anbringes "under" relevante ark

Public Sub indsætSideSkift()
Dim ræk As Integer, antalBlanke As Integer, antalRækker As Integer
    Application.ScreenUpdating = False
   
    antalBlanke = 0
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRækker
        Range("A" & ræk).Select
        If Selection.Text <> "" And Len(Selection) = 3 And antalBlanke > 0 Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
            antalBlanke = 0
        Else
            antalBlanke = antalBlanke + 1
        End If
    Next ræk
End Sub