Clui,

Try something like this:

Sub RenameToAll()

Dim CurrSht As String
Dim ws As Worksheet
Dim AlreadySet As String
Const SearchFor As String = "All"

CurrSht = ActiveSheet.Name
For Each ws In ThisWorkbook.Worksheets
If UCase(ws.Name) = UCase(SearchFor) Then
AlreadySet = ws.Name
Exit For
End If
Next ws

If Not AlreadySet = "" Then
MsgBox "A sheet named [" & AlreadySet & "] already exists in
the Workbook"
Exit Sub
Else
Sheets(CurrSht).Name = "All"
End If

End Sub

THis will set the current sheet name to "All" if another sheet in the
workbook is not named "All". I have set it up so "All" is not case
sensitive.

Alex J


"clui" wrote in message
...

I need to check whether a worksheet with the name "all" already exists
in my workbook. If so, I don't name another worksheet "all", otherwise
I have to name it "all". Thanks!


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step guide to
creating financial statements