Range-select med flere ubekendte

ikke forstået, kan du uddybe.

Range("A23:F23").Select  markerer celler a23-f23 ' ok
Men jeg aner ikke hvor den range-select havner ' hvad mener du

Public Sub test()
Range("A23:F23").Select
For Each c In Selection
MsgBox " adressen er " & c.Address
Next
End Sub

Hej Kabbak
Jeg ved ikke om den hedder a23:f23 eller a234:f234.

Kan man lave det sådan at den kører på en activecell-et eller andet...
Er du med??

Jeg skal lave en "overskrift" med nogle data jeg skal have i a-f flettede celler - men jeg ved ikke hvor overskrifterne skal være...

Flettede celler er noget skidt, hvis du bruger makroer.
her kan du se hvad der sker når man feetter (merge) celler

  Range("A23:F23").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge
    Range("A23:F23").Select
End Sub

her til sidst er der klikket ind i den mergede celle, den hedder nu.
Range("A23:F23").Select

men på arket hedder den A23.

hvis du nu vil skrive i den mergede celle kan det gøres sådan.

  Range("A23:F23").Select
    ActiveCell = "sfsdf"
 
eller

Range("A23").Select
    ActiveCell = "sfsdf"

Ja, det ved jeg - tak!
Jeg prøver lige igen - HELT forfra.

Jeg har et langt ark med en masse data.
De data er delt op i grupper, og bliver organiseret sådan at de kan skrives ud.
På hver side skal der i toppen være en flettet celle med større tekst - og det kan ikke laves som et sidehoved!

Men jeg ved ikke hvor de flettede celler havner, det afhænger af data'ne, så hvordan kan man lave en kode der fletter celler ved c.address??
Det er sikkert meget simpelt - men S.... svært at forklare - syns jeg!

kan man f.eks. lave en activecell.offset(0,0):(0,5).select    ...???

Det er markeringen der giver problemerne... IKKE merge funktionen!

Sub Makro1()
For Each c In Range("a1:A20")

  c.Range(c.Offset(0, 1), c.Offset(0, 6)).Select
      Selection.Merge
  Selection = " test på merge"
  Next
End Sub

var det det du søgte ?.

YES!!!!!  1000 tak - og sorry den dårlige forklaring...!!!  ;-)

Men...  den virker ikke i formlen - måske ved den ikkke hvad c.range er når man ikke bruger en lykke som i eksemplet...

activecell.Range(activecell.Offset(0, 1), activecell.Offset(0, 6)).Select

med activecell

hele koden
Sub Makro1()
For Each c In Range("a1:A20")
c.Select
ActiveCell.Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 6)).Select
      Selection.Merge
  Selection = " test på merge"
  Next
End Sub