J JE McGimpsey Jan 13, 2006 #2 One way: Dim nResult As Long nResult = Application.Count(Range("B2:J10"))