Use Row Level Locking
Sub SetGranularity() Application.SetOption "Use Row Level Locking", True End Sub