SaveCopyAs

I have the following code, which will save a copy of the workbook as a given name and the current date and time when a value of 1 is moved into a cell. The code seems to work as I expect it to. I would like to refine it to save a copy of certain sheets in the workbook instead of the entire workbook, and name and store the copy the same way it is in the existing code. This way the user opening the copies isn't promted to update external data. Can anyone Help? Thanks in advance...

******************

Private Sub Worksheet_Calculate()

  Dim Inrange As Range
  Dim rng As Range
  Set Inrange = Range("H1")
  For Each rng In Inrange.Cells
    If Not IsError(rng.Value) Then
       If Me.Range("H1").Value = "1" Then
         MsgBox "Saving a Dated Copy...."
         Application.EnableEvents = False
         ActiveWorkbook.SaveCopyAs Filename:="C:\Data\" & _
         Replace(ActiveWorkbook.Name, ".xls", _
         " " & Format(Now, "yyyy-mm-dd-hh-mm") & ".xls")
         Application.EnableEvents = True
       End If
    End If
  Next rng
  
End Sub

*****************