Maybe try this (untested):

For s = 1 to Sheets.Count
    If Sheets(s).name like "*" & "-" & "*" & "-" & "*" Then Msgbox Sheets(s).name
Next