Rename sheet by refer to a cell

[Beginner Level]

Is there a way to rename the sheet with by refer to a cell at certain worksheet?
For example, I want my new sheet's name is "6 graph 10cm" , so how should i modify the code below?
I wrote 6graph in the syntax and the 10cm is located at Sheet2!D10. How could I combine both of the text so I will get a new sheet with the name "6 graph 10cm"

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "6 graph" & Sheets("2").D10

[jraj1106]

Hi..
Try this:

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "6 graph" & Sheets("Sheet2").Range("D10")

Regards...