For Next

Sub test()

Dim i As Integer
For i = 1 To 5

Worksheets.Add
Next i

End Sub
---------------------------------

'kombinasi dengan inputbox

Sub test()
Dim i As Integer
Dim jumlah As Integer

jumlah = InputBox("Masukkan jumlah sheet yang mau ditambahkan?", "Tambah")

For i = 1 To jumlah
Worksheets.Add
Next i


End Sub
----------------------------------


Sub test()
Dim i As Integer
Dim jumlah As Variant

jumlah = InputBox("Masukkan jumlah baris yang akan disembunyikan?", "Jumlah Baris")

If jumlah = "" Then
Exit Sub
End If

For i = 4 To jumlah
Rows(i).Hidden = True
Next i

End Sub

------------------------