Hej hej

rngname1 är en cell där det står pelle, rngToCells är en cell där du skrivit vilka celler som pelle ska skrivas till. Du måste döpa dessa celler i namnrutan till de namnen jag har angett för att det ska fungera.

I cellen där du ska skriva vilka celler resultatet ska skrivas till ska du använda kommatecken som separator om du vill skriva till celler som inte sitter ihop. Exempelvis A1,C1

Vill du istället skriva till ett sammansatt område så skriver du A1:C3

Jag har inte laggt in kod för kalle, men det är juh bara att göra likadant som tidigare, fast med andra namngivningar.

Mvh

Christian

Sub dub()

    Dim strName As String: strName = Range("rngname1")

    Dim strCells As String: strCells = Range("rngToCells")    

    Range(strCells) = strName 

End Sub