Makro ausführen und im Anschluß den Bereich färben
16.05.2005 16:09:14
Selma
ich habe dieses Makro:
Sub rename_HD()
'bennent die Dateinamen für markierten Zellenbereich
gesZeilen = Selection.Rows.Count
For i = 1 To gesZeilen
oldName = Selection.Cells(i, 1).Value
newName = Selection.Cells(i, 2).Value
Name (oldName) As (newName)
Next i
End Sub
Nach dem ich das Makro ausgeführt habe, möchte ich markierten Zelelnbereich mit grüner Hintergrundfarbe darstellen.
Was muss ich in meinem Makro ändern ?
Danke im Voraus....
Liebe Grüße
SELMA