kan ikke kalde omdøbt ark

Svar fundet man skriver.

celletekst = Worksheets("Data_bas").Cells(1, 1)

Det er fordi at et ark faktisk har to navne. 1 bruges intern og 1 bruges i arkfanen.
Prøv at se under properties for et ark. (tryk F4).
Under Name kan du skrive noget andet end det som arket hedder på fanebladet.
Dette navn kan du bruge på den måde som du først beskrev.
Ark1.Cells(1, 1)
Hvis du skriver Data_bas i Name kan du bruge
celletekst = Data_bas.Cells(1, 1)

Worksheets("Data_bas") refererer til navnet på arkfanen.

Når du laver en makro en det faktisk bedst at bruge den metode med at ændre navnet i Name og bruge det i selve makro. Dette navn ændrer sig nemlig ikke hvis en eller anden skulle omdøbe arket (ved en fejl :-))