2 macro opgaver

1) kan gøres uden makro; opret en ekstra kolonne med denne formel i første række: ="DITAS/"&SMÅ.BOGSTAVER(C1), og kopier nedefter
Som makro ser den således ud:

Sub NytNavn()
    Dim c As Range
    For Each c In Application.Intersect(Worksheets("Ark1").UsedRange, Worksheets("Ark1").Range("C:C"))
        c.Value = "DITAS/" & LCase(c.Value)
    Next
End Sub

2) Jeg har ikke noget bud, jeg er ikke sikker på jeg forstår helt

ad. 1:
Macro virker fint, lige i øjet. Men der skal ændres fra små- til storebogstaver.

ad. 2:
I netop rettede ark findes nu en kolonne C med eks. "DITAS/FA.NAVN".
I andet regneark/ark findes en liste med 2 kolonner B=tlf. C="DITAS/FA.NAVN".
Hvorledes kan jeg få tlf. overført til kolonne B i det "nye" ark.
copy/paste kan ikke bruges da der findes flere navne i ark2 end i ark1.

Points ??

Har opgivet selv opgaven, men løsningen med tilføj tekst. Har selv løst problemet med store/små bogstaver.

lukker - tager selv points !!!!!!!!!!!!