Deleting Leading Characters Across Multiple Sheets

[slpswhite]

I have a need to delete leading characters (5) from the same column (D) across multiple worksheets. I can get it to work on a single spreadsheet using the following code:

Sub RemoveCORP()
Range("A1").Value.Activate
For Each Cell In Range("D2", Range("D1000").End(xlUp))
If Not IsEmpty(Cell) Then
Cell.Value = Right(Cell, Len(Cell) - 5)
End If
Next Cell
End Sub

Every time I add a workbook this doesn't want to run. In this case I need to remove my worksheet names are John, Ralph, Mary and Virginia.

I have set the sheets and tried to enter a sheet name before the line "For Each" to see if it would work.

Any ideas?

 

[slpswhite]

I could probably just run it as is, as I can parse the data to the other sheets (after all the vendor sheets) after this has run. I think I am good from here. Thanks for helping out on this.

 

[Joe4]

You are welcome.