Sub newsht()
Do While Sheets("List").Range("B4").Offset(i, 0).Value < ""
Sheets("Master").Copy After:=Sheets("Master")
ActiveSheet.Name = Sheets("List").Range("B4").Offset(i,
0).Value
Range("C4").Value = Sheets("List").Range("B4").Offset(i,
0).Value
i = i + 1
Loop
End Sub


--
lcoreyl
------------------------------------------------------------------------
lcoreyl's Profile: http://www.excelforum.com/member.php...fo&userid=2042
View this thread: http://www.excelforum.com/showthread...hreadid=558609