B2 to C10 and G2 to G20
Range("B2:C10").Value = Range("B2:C10").Value
Range("G2:G20").Value = Range("G2:G20").Value
Sub MakeValue()
Dim i As Integer
Dim cell As Range
For i = 1 To 10
For Each cell In Worksheets(CStr(i)).Range("B2:C10,G2:G20").Cells
cell.Value = cell.Value
Next cell
Next i
End Sub
Thanks alot, thats perfectTry,
VBA Code:Sub MakeValue() Dim i As Integer Dim cell As Range For i = 1 To 10 For Each cell In Worksheets(CStr(i)).Range("B2:C10,G2:G20").Cells cell.Value = cell.Value Next cell Next i End Sub
Dave
Sub MakeValue()
Dim i As Integer
Dim Areas As Range
For i = 1 To 10
For Each Area In Worksheets(CStr(i)).Range("B2:C10,G2:G20").Areas
Area.Value = Area.Value
Next Area
Next i
End Sub