Setting Worksheet Name = to Cell in Worksheet

[arwhitley]

I'm looking for a way to set the worksheet name equal to a cell in th
worksheet itself. I'm currently importing from Crystal Reports int
Excel and I want to name the worksheet name to a referenced cell

 

[Frank Kabel]

Hi
with activesheet
.name=.range("A1").value
end with