....

AlremeithiMohamed 

Why did you remove all text from your posts? Now the topic has become incomprehensible to others, and nobody can help you with your last question...

..........

..........

AlremeithiMohamed 

I cannot help you with that, sorry. Perhaps someone else will have a suggestion for you.

..........

..........

AlremeithiMohamed 

Good night!

AlremeithiMohamed 

Here it is split into two separate macros:

Sub GenerateSheets()
    Dim NumLetters As Long
    Dim NumSheets As Long
    Dim NumRows As Long
    Dim Wbk As Workbook
    Dim Wsh As Worksheet
    Dim i As Long
    NumLetters = Application.InputBox(Prompt:="How many letters do you want to use (max 26)?", Type:=1)
    If NumLetters < 1 Or NumLetters > 26 Then
        Beep
        Exit Sub
    End If
    NumSheets = Application.InputBox(Prompt:="How many sheets do you want to create?", Type:=1)
    If NumSheets < 1 Then
        Beep
        Exit Sub
    End If
    If NumSheets > 4000 Then
        If MsgBox(Prompt:="Warning! This could take a long time! Do you want to continue?", _
                Buttons:=vbYesNo + vbQuestion) = vbNo Then
            Exit Sub
        End If
    End If
    NumRows = Application.InputBox(Prompt:="How many rows per sheet do you want to fill?", Type:=1)
    If NumRows < 1 Or NumRows > 1048576 Then
        Beep
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set Wbk = Workbooks.Add(Template:=xlWBATWorksheet)
    For i = 1 To NumSheets
        Set Wsh = Wbk.Worksheets.Add(After:=Wbk.Worksheets(Wbk.Worksheets.Count))
        Wsh.Range("A1:E1").Value = Array("Header 1", "Header 2", "Header 3", "Header 4", "Header 5")
        Wsh.Range("A2").Resize(NumRows).Value = "This"
        Wsh.Range("B2").Resize(NumRows).Value = "That"
        Wsh.Range("C2").Resize(NumRows).Formula = "=BASE(ROW()-2+" & (i - 1) * NumRows & "," & 10 + NumLetters & ", 6)"
        Wsh.Range("D2").Resize(NumRows).Value = "Other"
        Wsh.Range("E2").Resize(NumRows).Value = "Something"
        Wsh.Range("A" & NumRows + 2 & ":E" & NumRows + 2).Value = Array("Footer 1", "Footer 2", "Footer 3", "Footer 4", "Footer 5")
        DoEvents
    Next i
    Application.DisplayAlerts = False
    Wbk.Worksheets(1).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Sub SaveToText()
    Dim Wbk As Workbook
    Dim Wsh As Worksheet
    Dim NumRows As Long
    Dim Filename As Variant
    Dim f As Integer
    Dim r As Long
    Filename = Application.GetSaveAsFilename(FileFilter:="Text File (*.txt),*.txt", Title:="Save to Text File")
    If Filename = False Then
        Exit Sub
    End If
    f = FreeFile
    Open Filename For Output As #f
    Set Wbk = ActiveWorkbook
    For Each Wsh In Wbk.Worksheets
        NumRows = Wsh.Range("C" & Wsh.Rows.Count).End(xlUp).Row
        For r = 1 To NumRows
            Print #f, Wsh.Range("C" & r).Text
        Next r
    Next Wsh
    Close #f
End Sub

..........

AlremeithiMohamed 

Does this do what you want?

Sub GenerateSheets()
    Dim NumLetters As Long
    Dim NumSheets As Long
    Dim NumRows As Long
    Dim Wbk As Workbook
    Dim Wsh As Worksheet
    Dim i As Long
    Dim Filename As Variant
    Dim f As Integer
    Dim r As Long
    NumLetters = Application.InputBox(Prompt:="How many letters do you want to use (max 26)?", Type:=1)
    If NumLetters < 1 Or NumLetters > 26 Then
        Beep
        Exit Sub
    End If
    NumSheets = Application.InputBox(Prompt:="How many sheets do you want to create?", Type:=1)
    If NumSheets < 1 Then
        Beep
        Exit Sub
    End If
    If NumSheets > 4000 Then
        If MsgBox(Prompt:="Warning! This could take a long time! Do you want to continue?", _
                Buttons:=vbYesNo + vbQuestion) = vbNo Then
            Exit Sub
        End If
    End If
    NumRows = Application.InputBox(Prompt:="How many rows per sheet do you want to fill?", Type:=1)
    If NumRows < 1 Or NumRows > 1048576 Then
        Beep
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set Wbk = Workbooks.Add(Template:=xlWBATWorksheet)
    For i = 1 To NumSheets
        Set Wsh = Wbk.Worksheets.Add(After:=Wbk.Worksheets(Wbk.Worksheets.Count))
        Wsh.Range("A1:E1").Value = Array("Header 1", "Header 2", "Header 3", "Header 4", "Header 5")
        Wsh.Range("A2").Resize(NumRows).Value = "This"
        Wsh.Range("B2").Resize(NumRows).Value = "That"
        Wsh.Range("C2").Resize(NumRows).Formula = "=BASE(ROW()-2+" & (i - 1) * NumRows & "," & 10 + NumLetters & ", 6)"
        Wsh.Range("D2").Resize(NumRows).Value = "Other"
        Wsh.Range("E2").Resize(NumRows).Value = "Something"
        Wsh.Range("A" & NumRows + 2 & ":E" & NumRows + 2).Value = Array("Footer 1", "Footer 2", "Footer 3", "Footer 4", "Footer 5")
        DoEvents
    Next i
    Application.DisplayAlerts = False
    Wbk.Worksheets(1).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Filename = Application.GetSaveAsFilename(FileFilter:="Text File (*.txt),*.txt", Title:="Save to Text File")
    If Filename = False Then
        Exit Sub
    End If
    f = FreeFile
    Open Filename For Output As #f
    For i = 1 To NumSheets
        For r = 1 To NumRows + 2
            Print #f, Worksheets(i).Range("C" & r).Text
        Next r
    Next i
    Close #f
End Sub