Hi,

Am Sat, 28 May 2016 21:47:28 -0700 (PDT) schrieb FOONG KAH LOON:

Sub For_Loop()

Dim x As Long

' test3 Macro
'
' Keyboard Shortcut: Ctrl+Shift+C

For x = 1 To 100

ActiveWorkbook.RefreshAll
Range("E2:Q2").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial xlPasteValues
Range("E2").Select

Next x

End Sub

you don't need a loop to change the formulas to values.

Try:

Sub Test()
With ActiveSheet.Range("E2:Q100")
.Value = .Value
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016