Placing "DRAFT" just on Certain Sheets

  • Thread starter Thread starter JMay
  • Start date Start date
J

JMay

The below code is perfect for toggling "DRAFT" on/off an
activesheet, but I need to modify it as follows. I'm lost
as to which way to turn/go. Any assistance would be
greatly appreciated.

My workbook has several tabs (worksheets). I need to
permanently place "DRAFT" on ALL worksheets (disallow
toggling) that DO NOT have the word "NOTES" as part of the
sheet name, example "IP-CUR NOTES" - Code would allow for
additional tabs (sheets) being added.

Thanks in Advance,
JMay
 
I'm not sure what you mean by placing "DRAFT" on each
sheet, in a particular cell? (the code you mentioned does
not appear in this post). Whatever, perhaps you could try
something like this:

Sub Test()
Dim ws As Worksheet
Dim sNote As String
sNote = "NOTES"
For Each ws In ActiveWorkbook.Worksheets
If InStr(1, ws.Name, sNote, 1) = 0 Then
'do code to place "DRAFTS"
End If
Next
End Sub

See InStr in help, change the last argument to zero for
case sensitive comparison
Code would allow for additional tabs (sheets) being added
Click to expand...

An Event is triggered when a new sheet is added, however
it will be named "SheetX". Possibly within the event you
could ask the user give a new sheet name via an Inputbox,
then check the input string or run the above code.

Regards,
Sandy
 
Thanks Sandy;

Yes, in my confused state I forgot to copy in the "below code"; thanks for
offering a viable alternative.

JMay
 
Back
Top