[T.dot]

und was willst du mir damit sagen? wie ifs funktionieren weiß ich grad noch.

ich hab nur das problem das diese Zeile:
ActiveSheet.Range("d10").Locked = True
nichts tut.

mfg