Drop down list to select sheet name

Good Morning!

I am trying to add a drop down list to my macro to allow the user to select from a list of names to name a new sheet created.
I have the current macro which allows them to enter a sheet name, but I have decided I would prefer to provide a list to choose from as some formulas on another tab are dependent on the sheet name. How do I adjust the below to provide a list vs input box?

    Dim VariableSheetName As String
    VariableSheetName = InputBox("Sheet Name", "Enter Projection name")
    Sheets("Sheet1").Name = VariableSheetName

Thanks in advance for any help you can provide!!!