Como imprimir folios en excel

Dante ya hice el cambio del código pero me sigue marcando error

Sub Imprimir_Click()
    num = InputBox("Escribe el número de folios a imprimir", "IMPRIME FOLIOS")
    If num = "" Or num = False Or num = 0 Or Not IsNumeric(num) Then
        MsgBox  "Impresión cancelda",  vbExclamation
        Exit Sub
    End If
     '
    num  =  Val(num)
    For i  =  1 To num
        ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
        [C3] = [C3] + 1
    Next
    MsgBox  "Finalizó la impresion",  vbInformation
    ThisWorkbook.Save
End Sub

Este es el código que me enviaste me puedes ayudar con un ejemplo el total de copias serian 30 del numero 20850 al 20880 la celda seria la k4 ya le intente de varias formas pero nomas no me sale