[jockey17]

Σχετικά με τα κλειδωμένα κελιά πρόσθεσα στον κώδικα:
If rngSource.Cells(i, j).Locked = False Then
…. Ο κώδικας όπως τον έγραψες….
Else
End If
Και διαπίστωσα ότι αυτά που είναι κλειδωμένα είναι και οι περιπτώσεις να έχουν αφαίρεση ή διαίρεση. Βέβαια θα πειραματιστώ ακόμα, σε περίπτωση που υπάρχουν και άλλα κελιά ξεκλείδωτα με αφαίρεση ή διαίρεση.
Σημείωση: στο «And IsNumeric(Mid(rngSource.Cells(i, j).Formula, 3, 1))», το 3 μάλλον πρέπει να είναι 2;
φιλικά
Δημήτρης