Sheets("Main").Activate
Range("B3").Select
Do Until ActiveCell.Value = "END"
If ActiveCell.Value <> "" Then
varFundName = Left(ActiveCell.Value, 31)
Sheets("Template").Select
Sheets("Template").Copy Before:=Sheets(1)
Sheets("Template (2)").Name = varFundName
etc.