Jojo, matně si vybavuju, že jsem se s tím taky kdysi potýkal. Excel mylně ukazuje chybu na řádku s funkcí MID, ale hlavní problém je v řádku

Target = Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Stoleti & Right(Target, 2)

Už si moc nevzpomínám, jak jsem to přesně řešil, ale chce to použít nějakou konverzní funkci jako CDATE nebo něco podobnýho...