Hi Paul thank you so much for your reply
I have already done what you suggested & it works well, the problem is that I cannot make it spin like a spin button is there code that can make this happen ?
At the moment I can only advance by +1 or minus -1 at a time
I really dont have a clue how to do this.
I have attached the working code. Any help would be really appreciated.
Sub addNumericValueToTextFields()
Dim textFieldValue As Integer
Dim inputBoxValue As Integer
Dim newValue As Integer
textFieldValue = Int(ActivePresentation.Slides(28).Shapes("Counter").TextFrame.TextRange.Text)
newValue = textFieldValue + 1
ActivePresentation.Slides(28).Shapes("Counter").TextFrame.TextRange = newValue
If newValue > 1949 Then
MsgBox "You have reach the limit", vbSystemModal, "Limit"
End If
End Sub
Sub delNumericValueToTextFields()
Dim textFieldValue As Integer
Dim inputBoxValue As Integer
Dim newValue As Integer
textFieldValue = Int(ActivePresentation.Slides(28).Shapes("Counter").TextFrame.TextRange.Text)
newValue = textFieldValue - 1
ActivePresentation.Slides(28).Shapes("Counter").TextFrame.TextRange = newValue
If newValue < 1931 Then
MsgBox "You have reach the limit", vbSystemModal, "Limit"
End If
End Sub