Sub PrintNCRSeries()
Dim StrSeries As String, i As Long, j As Long, k As Long
With ActiveSheet
  With .Range("F12")
    If InStr(.Value, "-") > 0 Then
      i = Split(.Value, "-")(1) + 1
      j = Split(.Value, "-")(1) + 10
    End If
  End With
  StrSeries = InputBox("What is the range to print? (eg 1-10)", _
    "NCR Print Manager", Format(i, "0000") & "-" & Format(j, "0000"))
  If StrSeries = "" Then Exit Sub
  i = Split(StrSeries, "-")(0)
  j = i
  If InStr(StrSeries, "-") > 0 Then j = Split(StrSeries, "-")(1)
  For k = i To j
    .Range("F12").Value = "FE-" & Format(k, "0000")
    .PrintOut Copies:=3
  Next
End With
End Sub