Can anyone see why the "range value" section of this code won't work? I get
an object not defined error?

shtarray = Array("Sheet1", "Sheet5", "Sheet2", "Sheet3", "Sheet4")

For Each sh In ActiveWorkbook.Worksheets(shtarray)
sh.Range("A2:EC2").Copy

Set frng = sh.Range("A5:EC" & Data.Range("B65536").End(xlUp).Row)
frng.PasteSpecial Paste:=xlPasteFormulas

With ActiveWorkbook.sh.Range("A5:EC" &
Data.Range("B65536").End(xlUp).Row)
.Value = .Value
End With
Next sh