Paste Values in Certainty Range

hi all...

i have found code to paste values in multiple sheets..
this code working well

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

but i want to paste value start from ONLY range A1 to F21 in sheet Hitung1, Hitung2, Hitung3, etc.....at once running code

any help, thanks in advance...

john m

How about

Sub JhonMustofa()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Ws.Name Like "Hitung*" Then
         Ws.Range("A1:F21").Value = Ws.Range("A1:F21").Value
      End If
   Next Ws
End Sub

hi Fluff13, thank you it solved.

You're welcome & thanks for the feedback