[QUOTE="TOP"] Now press F8 repeatedly till past the End Function line.[/QUOTE] It still stops at the same line CheckRelease = CLng(Left(swApp.RevisionNumber(), InStr(swApp.RevisionNumber(), ".")) And gives the same error message