Sub ss()Dim sh As WorksheetFor Each sh In WorksheetsIf sh.[b6] <> "" Thena$ = sh.[b6].Text & " "sh.Name = Left(a, InStr(a, " ") - 1)End IfNextEnd Sub