Hi again,

Am Tue, 30 Jun 2015 08:22:40 +0200 schrieb Claus Busch:

I tested it with Union. But this also does not work.
I found no working way except the loop through the range.

this will work:

Sub Run37Hours()
Dim myRng As Range
Dim i As Long

With Sheets("Sheet2")
.Unprotect
'feed in the values
Set myRng = .Range("AG19, AG21:AG27, AG29:AG35, AG39:AG44,AG47,
AG49, AG52, AG55:AG60, AG63:AG66, AG69, AG73:AG78")

With myRng
.Formula = Range("AG5").Formula
For i = 1 To .Areas.Count
.Areas.Item(i).Value = .Areas.Item(i).Value
Next
End With
.Protect
End With

End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional