[gr8styl]

Φίλε μου ο κώδικάς σου θα δουλέψει μια φορά μόνο γιατί την δεύτερη φορά θα κολλήσει στο
Sheets("RankingList (2)").Name = "RankingListNew"
γιατί το φύλλο "RankingListNew" θα υπάρχει ήδη !!!

Αφου διορθώσεις αυτό τότε, για την εμφάνιση μηνύματος και κουμπιά, μπορείς να αξιοποιήσεις το MsgBox
Παράδειγμα:
Μετά το Sub Button173_Click() βάλε

Dim Answer

και πριν το End Sub βάλε

Answer = MsgBox("Here comes you text message", vbYesNoCancel)
Select Case Answer
Case vbYes
'code for Button Yes
    MsgBox "You pressed Yes"
Case vbno
'code for Button No
    MsgBox "you pressed No"
Case vbcancel
'code for Button Cancel
    MsgBox "You pressed Calcel"
End Select