Hi all,
I seem to be having with my simple code below. I'm creating a new
worksheet with range from old worksheet and want to rename the new
worksheet with a cell value from old worksheet but am getting an error.
can anyone help?

For Each sh In ThisWorkbook.Worksheets
'Bold section headings
sh.Range("A2,A4").Font.Bold = True


'Make second worksheet

Set Newsh = ThisWorkbook.Worksheets.Add


sh.Range("A23:G95").Cut _
Destination:=Newsh.Range("a1")


sh.Range("A:g").Copy

Newsh.Range("a:g").PasteSpecial Paste:=xlPasteFormats
Newsh.Name = sh.Range("A2").Value (ERROR HERE)