How to rename sheets prefix in VBA Excel "Microsoft Excel Objects"

 Sub RenameSheet()

Dim Ws As Worksheet

For Each Ws In Worksheets

Ws.Name = "2018 - " & Ws.Name

Next Ws

End Sub