Norman Jones...
Hi Kevin

Sub Tester()
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With

',,,,,,,,,,,,,,Your Code

With Application
.Calculation = CalcMode
End With

End Sub

---
Regards,
Norman

Norman,

That is exactly what I would looking for. Thank you very much.

Best regards,
Kevin