Public SH As Worksheet

Private Sub CommandButton1_Click()
Dim MaxNumber As Integer
MaxNumber = Application.InputBox("Enter The Number", "www.Tricks12345.com")
Set SH = ThisWorkbook.Sheets("Numbers")
SH.Range("A1").CurrentRegion.Clear
For N = 1 To MaxNumber
SH.Cells(N, 1).Value = N
Application.Wait (Now + TimeValue("00.00.01"))
Application.Speech.Speak (N)
Next
Application.Speech.Speak ("Hi Pavan Kumar Program Completed")
End Sub

Private Sub CommandButton2_Click()
Dim InputSH As Worksheet
Set InputSH = ThisWorkbook.Sheets("Letters")
Set SH = ThisWorkbook.Sheets("Numbers")
SH.Range("A1").CurrentRegion.Clear
For R = 1 To InputSH.Range("A" & Rows.Count).End(xlUp).Row
SH.Cells(R, 1).Activate
SH.Cells(R, 1).Value = InputSH.Cells(R, 1).Value & " For " & InputSH.Cells(R, 2).Value
SH.Cells(R, 1).Font.Size = 13
SH.Cells(R, 1).Font.Bold = True
Application.Wait (Now + TimeValue("00.00.01"))
Application.Speech.Speak (InputSH.Cells(R, 1).Value & " For " & InputSH.Cells(R, 2).Value)
Application.Wait (Now + TimeValue("00.00.01"))
Next
Application.Wait (Now + TimeValue("00.00.01"))
Application.Speech.Speak ("Hi Pavan Kumar Program Completed")
End Sub