OPRAG-OPREG

ALT+F11 Sub UnhideAllSheets()     Dim ws As Worksheet     For Each ws In ActiveWorkbook.Worksheets         ws.Visible = xlSheetVisible     Next ws End Sub

This is the way how to catch digit AFTER a specific symbol, for this case the symbol means (desc "-"). situation would be as follows : "XXXXX-NAME" we would need to catch all "NAME" AFTER desc "-", so value would be "NAME". VB Script would be as below to support our case : Click below picture for more clear preference