I am trying to automate an annual leave calendar. I got stuck on looking for a value grater than 20% within a given Range.
Sub NewTest()
Application.ScreenUpdating = False
Dim oSet As Integer
Dim StartDate As Range, EndDate As Range
oSet = 1
Dim q1 As Range, cel As Range, iName As Range
Set...