Hi Friends,

I want to know is there some steps we need to know whether the code
within should not have comparisons or any other thing

Application.xlcalculation=xlmanual

<code

Applicatioon.xlCalculation=automatic

My understanding is that if the cell used in the sheet should not be
referenced by any other sheet.
If those cells which are referenced by some other sheets for
calculations setting the calculation off while performing a save in
the active sheet which needs calculation to be set to manual for speed
will hamper the functionality before i turn it to automatic again. I
have put question mark where I have doubt. Please give your views so
that i can understand when i can turn it off as it is hampering the
performance.

If [dt2.corep] 0 Then //Will this be an issue???
glngDate = CLng((WorksheetFunction.count(kaWks.Range
("f31,f47,f63,f79")) * (4 / [dt2.corep])))


like here i am comparing one cell if it is greater than zero so should
calculation if set to manual will be problem

Also

((WorksheetFunction.count(kaWks.Range
("f31,f47,f63,f79")) * (4 / [dt2.corep])))
will these functions be a problem

If rInput.offset(8, 1) Like "[SR]" Or rInput.offset(8, 0) = "Y" //
****Will this be a problem as we are comparing ????????
Then
For i = 19 To [dt2.corep] * 16 + 3 Step 16
If Kround(rInput.offset(i, 12) + rInput.offset(i, 14)) <
Kround(rInput.offset(8, 8)) Then
fMessage.lbErrors.AddItem ("Core Contract Details:=
Fixed/RGS/Management contract " & "Rota " & (i - 3) / 16 & " core
hours not equal to contract hours")
kaWks.Range("l12").Interior.ColorIndex = 3
End If
Next i

ElseIf rInput.offset(8, 1) = "F" And rInput.offset(8, 0) = "N" //Wil
tis be a problem ???
Then
For i = 19 To [dt2.corep] * 16 + 3 Step 16
If Kround(rInput.offset(i, 12) + rInput.offset(i, 14))
Kround(rInput.offset(8, 8) * 0.75) Then
fMessage.lbErrors.AddItem ("Core Contract Details:=
Flexi contract " & "Rota " & (i - 3) / 16 & " Core hours greater than
75% of contract hours")
kaWks.Range("l12").Interior.ColorIndex = 3
End If
Next i
End If



Also we have sometimes Worksheet.Sum

If IsEmpty(rInput.offset(12, 9)) = True And WorksheetFunction.Sum
([dt2.avt]) 0 Then //Will this be a problem?????
rInput.offset(12, 9).Interior.ColorIndex = 3
fMessage.lbErrors.AddItem "Period Rules:= " & rInput.offset
(11, 9) & " missing"
ElseIf WorksheetFunction.Sum([dt2.avt]) = 0 Then
rInput.offset(12, i).ClearContents
End If



Regards,

Prince