Har problemer med tids formatering af celler (VBA)

Har du mulighed for at sende Excel-filen.
@-adresse under profil.

Private Sub aktiverKolonneC()
Dim Cværdi, Ctid As Date

    For ræk = 2 To 65000
        Cværdi = Cells(ræk, 3)        ‘udtrækker værdi fra kolonne C
        If Cværdi <> "" Then        ‘hvis værdi <> blank
            Ctid = Cværdi        'konverter til dato
            Cells(ræk, 3) = Ctid        ‘indsæt som dato
        Else
            Exit For            ‘afslut
        End If
    Next ræk
End Sub

Takker for din hjælp med ovenstående makro, Peter.
Men jeg ville høre ad om, hvordan jeg kan køre denne makro sammen med den øvrige kode i forbindelse med dataudtræk?
Smid venligst svar til point. :)

Selv tak - du får et svar

koden kunne indlægges når overførslen fra databasen er afsluttet.

Jeg havde lige et spørgsmål mere, hvordan kan jeg omksrive makroen til en funktion som jeg kan kalde med column og sheet, da jeg skal bruge det til forskellige databaseudtræk i samme excel fil bare flere regneark. jeg har desværre kun beskæftiget mig med Java tildigere...