Run Macro on specific sheets

[Kayslover]

Hi,

I have a macro that does the following:-

Sub A_RenameSheets()

Dim ws As Worksheet

Path = ThisWorkbook.Path & "\"

On Error GoTo err_chk

For Each ws In Worksheets

If Len(Trim(ws.Range("B4"))) > 0 Then ws.Name = ws.Range("B4").Text

Next ws

On Error GoTo 0

Exit Sub

err_chk:

MsgBox "Error #:" & Err.Number & ": " & Err.Description, vbOKOnly, "ERROR RENAMING " & ws.Name

Err.Clear

Resume Next

End Sub

Rather than running the macro on all the sheets in the workbook, I only want it to run on sheets that start Shee*

I am sure the line For Each ws In Worksheets needs to be changed, but I haven’t got a clue of what to do to just run on specific sheets

Any help would be appreciated.

Thanks

 

[Joe4]

Just change this line:

If Len(Trim(ws.Range("B4"))) > 0 Then ws.Name = ws.Range("B4").Text

to this:

If (Len(Trim(ws.Range("B4"))) > 0) And (Left(ws.Name, 4) = "Shee") Then ws.Name = ws.Range("B4").Text

 

[Fluff]

How about

For Each ws In Worksheets
   If ws.Name Like "Shee*" Then
      If Len(Trim(ws.Range("B4"))) > 0 Then ws.Name = ws.Range("B4").Text
   End If
Next ws

 

[Kayslover]

Joe4, Fluff,

Thanks for the prompt responses, I will try out both solutions tomorrow and let you know.

Thanks

 

[Fluff]

ok

 

[Kayslover]

Joe4, Fluff,

Once again thanks for your assistance.

 

[Joe4]

You are welcome.