"Carlos" wrote in message
...
Hi,

Simple code I'm sure, I just can't get my head round it.

I've a number a worksheets that could be added in any order, I need to
extract the sheet which has a name starting with "ilo" and rename it to
whatever I want.

For Each ws In ActiveWorkbook.Worksheets
If lcase( LEFT(ws.Name ,3) ) = "ilo" Then
newname = inputbox("Enter new name")
ws.name = newname
Exit Sub
End If

This is what I'm working with, Can anyone amend so I can get this changed?

Thanks
Carl