software

Is there a way to name the sheet or a tab of the sheet with a value of a
cell on that sheet?======gt;gt;gt;gt;gt; SNIP

Cells.Select
Selection.Copy
Windows(quot;Verification.xlsquot;).Activate
ActiveSheet.Paste
Range(quot;A1quot;).Select
Sheets(quot;Sheet6quot;).Select
Sheets(quot;Sheet6quot;).Name = quot;2quot; lt;lt;lt;===== manually added but the value is
on cell D1 of that sheet.

======gt;gt;gt;gt;gt; SNIP

Thanks!!

Try

Worksheets(quot;Sheet6quot;).Name = Worksheets(quot;Sheet6quot;).Range(quot;A1quot;).Text--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
quot;Vispyquot; gt; wrote in message
...
gt; Is there a way to name the sheet or a tab of the sheet with a
gt; value of a
gt; cell on that sheet?
gt;
gt;
gt; ======gt;gt;gt;gt;gt; SNIP
gt;
gt; Cells.Select
gt; Selection.Copy
gt; Windows(quot;Verification.xlsquot;).Activate
gt; ActiveSheet.Paste
gt; Range(quot;A1quot;).Select
gt; Sheets(quot;Sheet6quot;).Select
gt; Sheets(quot;Sheet6quot;).Name = quot;2quot; lt;lt;lt;===== manually added but
gt; the value is
gt; on cell D1 of that sheet.
gt;
gt; ======gt;gt;gt;gt;gt; SNIP
gt;
gt; Thanks!!
gt;
gt;
gt;
Worked great!!! Thanks!

quot;Chip Pearsonquot; gt; wrote in message
...
gt; Try
gt;
gt; Worksheets(quot;Sheet6quot;).Name = Worksheets(quot;Sheet6quot;).Range(quot;A1quot;).Text
gt;
gt;
gt; --
gt; Cordially,
gt; Chip Pearson
gt; Microsoft MVP - Excel
gt; Pearson Software Consulting, LLC
gt; www.cpearson.com
gt;
gt;
gt;
gt; quot;Vispyquot; gt; wrote in message
gt; ...
gt; gt; Is there a way to name the sheet or a tab of the sheet with a
gt; gt; value of a
gt; gt; cell on that sheet?
gt; gt;
gt; gt;
gt; gt; ======gt;gt;gt;gt;gt; SNIP
gt; gt;
gt; gt; Cells.Select
gt; gt; Selection.Copy
gt; gt; Windows(quot;Verification.xlsquot;).Activate
gt; gt; ActiveSheet.Paste
gt; gt; Range(quot;A1quot;).Select
gt; gt; Sheets(quot;Sheet6quot;).Select
gt; gt; Sheets(quot;Sheet6quot;).Name = quot;2quot; lt;lt;lt;===== manually added but
gt; gt; the value is
gt; gt; on cell D1 of that sheet.
gt; gt;
gt; gt; ======gt;gt;gt;gt;gt; SNIP
gt; gt;
gt; gt; Thanks!!
gt; gt;
gt; gt;
gt; gt;
gt;
gt;