Hi
I am programing an inputbox in VBA for excel 2003 and i need it to contain many different options around 44 different options. each are just short dates eg. 1. Oct-09. I know the coding to make an inputbox but i can't get it all to fit on the screen. is there a way to have more than one option on a line in the inputbox and what would the code be for that. Please find an extract of the coding i'm currently using below.
Sub Macro1()
Dim Prompt As String
Dim UserResp As String
Dim UR As Single
Prompt = "1. Nov-09" & vbCrLf
Prompt = Prompt & "2. Dec-09" & vbCrLf
Prompt = Prompt & "3. Jan-10" & vbCrLf
Prompt = Prompt & "4. Feb-10" & vbCrLf
Prompt = Prompt & "5. Mar-10" & vbCrLf
Prompt = Prompt & "6. Apr-10" & vbCrLf
Prompt = Prompt & "7. May-10" & vbCrLf
Prompt = Prompt & "8. Jun-10" & vbCrLf
Prompt = Prompt & "9. Jul-10" & vbCrLf
Prompt = Prompt & "10. Aug-10" & vbCrLf
Prompt = Prompt & "11. Sep-10" & vbCrLf
Prompt = Prompt & "12. Oct-10" & vbCrLf
Prompt = Prompt & "13. Nov-10" & vbCrLf
Prompt = Prompt & "14. Dec-10" & vbCrLf
Prompt = Prompt & "15. Jan-11" & vbCrLf
Prompt = Prompt & "16. Feb-11" & vbCrLf
Prompt = Prompt & "17. Mar-11" & vbCrLf
Prompt = Prompt & "18. Apr-11" & vbCrLf
Prompt = Prompt & "19. May-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jul-11" & vbCrLf
Prompt = Prompt & "20. Aug-11" & vbCrLf
Prompt = Prompt & "20. Sep-11" & vbCrLf
Prompt = Prompt & "20. Oct-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Prompt = Prompt & "20. Jun-11" & vbCrLf
Any assistance you can provide would be helpful. Even an alternate meathod would be useful.
cheers