hiden all sheets only one sheet

Sub gotoramfish()
sheettoshow = "ramfish"
Sheets("ramfish").Protect Password:=""
Call HideAllmysheets
End Sub
Sub HideAllmysheets()
ThisWorkbook.Sheets(sheettoshow).Visible = True
For Each ws In ThisWorkbook.Sheets
If ws.Name <> sheettoshow Then ws.Visible = xlVeryHidden
Next ws
End Sub