View Single Post
 
Old 12-08-2008, 02:57 AM
caholmes caholmes is offline Windows Vista Office 2007
Advanced Beginner
 
Join Date: Dec 2008
Location: Sydney, Australia
Posts: 54
caholmes is on a distinguished road
Thumbs up

Follow these instructions Deegz.
  1. Go into the Visual Basic Editor (Alt + F11)
  2. Ensure the Projects Window is Visible: View >> Project Explorer or Ctrl + R
  3. Double click on the worksheet that you are trying to rename
  4. Select worksheet from the dropdown box where it currently says (General)
  5. In the second dropdown list (to the right of the first one) select 'SelectionChange'
  6. Paste in the following code (exclude the link at the bottom). I hope this helps you.
On Error GoTo EH

If Range("C53") = "" Then Exit Sub

If ActiveSheet.Name <> Range("C53") Then ActiveSheet.Name = Range("C53")
Exit Sub
EH:
MsgBox "The value is cell C53 has created an error" & vbCr & vbCr & "Description: " & Err.Description
Reply With Quote