Can anyone kindly help with the following?

My source data is held on a worksheet called "data". The
range is named (using CurrentRegion) "DatArea". My macro
makes copies of the data worksheet so that I can
manipulate the copied sheets in various ways thus leaving
the original sheet intact. I use various Private Subs to
delete columns and resort columns. Each copied worksheet
is named using a title from a table, such as RI, UKGAAP,
FGAAP. The number of copies is controlled by a Do Until
Loop so the macro knows when to stop.
My question is ...when VBA copies the sheet, I'd like to
name the range according to the name of the worksheet. The
range name will therefore vary on each loop. I really
should be able to get my head around this but for some
reason I'm having a complete mental block today, can
anyone help me out, urgently.

Thanks very much
Jacqui