Indsætte bogstavet A som sidste tegn i alle celle

på:

for each c in selection
if c.value <> "" then c.value = c.value & "A"
next

af:
for each c in selection
c.value = left(c.value, len(c.value) - 1)
next

Sub SætAiL()
    sidsterække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For række = 1 To sidsterække
        If Cells(række, 12) <> "" Then
            Cells(række, 12) = CStr(Cells(række, 12)) + "A"
        End If
    Next række
   
End Sub

Sub SletAiL()
    sidsterække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For række = 1 To sidsterække
        If Right(Cells(række, 12), 1) = "A" Then
            Cells(række, 12) = Left(Cells(række, 12), Len(Cells(række, 12)) - 1)
        End If
    Next række
End Sub

8 sekunders forskel på en løsning....
Det kan man da kalde tæt løb.........

De virker begge 2 på samme måde jeg efterspurgte.
Jeg takker mange gang for hælpen.

Selvom det kan virke som en mærkelig opgave, vil jeg helt sikkert få meget gavn af koden. Så jeg er en glad mand :-)

Så mangler vi bare svar.

Nu slap jeg jo også afsted med 6 kodelinier :-)

Vent ikke på mig...

Jamen så får Excelent da bare det hele :-)