Renaming Sheets automatically

[jondallimore]

Hello,

I have a workbook with a few hundred sheets in it.
Is there an easy way to rename each sheet using the contents of cell A3 on each sheet?
Also, is there a way to automatically delete columns L - Q on every sheet?

thanks
Jon

 

[Fluff]

How about

Sub jondallimore()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Name = Ws.Range("A3").Value
      Ws.Range("L:Q").EntireColumn.Delete
   Next Ws
End Sub

This assumes that A3 on each sheet contains a valid sheet name

 

[jondallimore]

ahh poo, the sheet generates names with a / in them. Find and replace time

 

[jondallimore]

but once all / removed, works perfectly. Thanks.

 

[Fluff]

You can remove the / as you go like

Sub jondallimore()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Name = Replace(Ws.Range("A3").Value, "/", "[COLOR=#ff0000]#[/COLOR]")
      Ws.Range("L:Q").EntireColumn.Delete
   Next Ws
End Sub

Just change the red # to whatever character you want to use instead.