Thanks Artik:

I think that We've got an error in this area of the code. 
  
If boolUnlock Then             
Application.OnTime Now + TimeSerial(0, 0, 10), "'LockRange """ & rngScope.Offset(0, 3).Address(External:=True) & """'"    
End If
It keeps telling me that it can't run the Macro LockRange, because it might be unavailable etc...etc... The idea was not to allow anyone to enter anything in Column M until something was entered into column J. That would unlock the Cell on that row in Column M but only for 30 seconds.

Thanks for the effort. Unfortunately, I got lost in the code logic.