Insert New Worksheet based on Cell Contents...

[HELP PLEASE]

Hello all,
Cell A1 has the first three leters of the current month, then a dash and the last two letters of the current year; example (Feb-05). I need a macro that creates a new worksheet with the cell A1's contents as its name if a worksheet with that name does not already exist. Is that possible? Thanks for all your help always! Carl

 

[Zack Barresse]

Heya!

Check out this thread ..

http://www.vbaexpress.com/forum/showthread.php?t=1705&highlight=rename

.. and my solution there. It is quite similar to your request.

 

[chiello]

Below an other possible solution (I spent time for it, and why not to show it ?? )

Code:

Sub InserNewSheet()
'
'
Dim SheetExists As Worksheet
Dim SheetName As String
SheetName = ActiveSheet.Range("A1").Text
If SheetName <> "" Then
On Error Resume Next
Set SheetExists = Sheets(SheetName)
On Error GoTo 0
If SheetExists Is Nothing Then
Set SheetExists = Sheets.Add(after:=Sheets(Sheets.Count))
SheetExists.Name = SheetName
End If
End If
End Sub

 

[HELP PLEASE]

Similar to this...is there a way to make a sheet unhidden when A1 is equal to the name of the hidden sheet? Hope that makes senese...thanks so much!

 

[HELP PLEASE]

Wow! I think I got it....Thanks for your help!



Sub InserNewSheet()
'
'
Dim SheetExists As Worksheet
Dim SheetName As String
SheetName = ActiveSheet.Range("A1").Text

If SheetName <> "" Then
On Error Resume Next
Set SheetExists = Sheets(SheetName)
Sheets(SheetName).Visible = True

If SheetName <> "" Then
On Error Resume Next
Set SheetExists = Sheets(SheetName)
On Error GoTo 0

'If SheetExist Is Nothing Then
'Set Sheets(SheetName).Visible = True
'On Error GoTo 0

If SheetExists Is Nothing Then
Set SheetExists = Sheets.Add(after:=Sheets(Sheets.Count))
SheetExists.Name = SheetName
End If
End If
End If

Sheets(SheetName).Select

End Sub