I am trying to Copy the Active worksheet name and paste it into cell AF2.

How can i do this?

I need it to added to this code:
Sub CommandButton1_Click()
With ActiveWorkbook
..Worksheets("1").Copy After:=.Worksheets(.Worksheets.Count)
ActiveSheet.Name = Worksheets.Count
UserForm1.Hide
Dim myFileName As Variant
Dim NewWksName As String
Dim NewWkbk As Workbook
Dim NewWks As Worksheet
NewWksName = Worksheets.Count
With NewWkbk
Set NewWks = Nothing
On Error Resume Next
Set NewWks = .Worksheets(NewWksName)
On Error GoTo 0
End With
If NewWks Is Nothing Then
End If
Call Macro10
[B3].Select
ActiveCell = Me.ComboBox1.Value
ActiveSheet.Visible = True
End With
End Sub



Can anyone assist me with this ?

Regards

Corey

Range("AF2").Value = ActiveSheet.Name

HTH

Die_Another_Day
"Corey" wrote in message
...
I am trying to Copy the Active worksheet name and paste it into cell AF2.

How can i do this?

I need it to added to this code:
Sub CommandButton1_Click()
With ActiveWorkbook
.Worksheets("1").Copy After:=.Worksheets(.Worksheets.Count)
ActiveSheet.Name = Worksheets.Count
UserForm1.Hide
Dim myFileName As Variant
Dim NewWksName As String
Dim NewWkbk As Workbook
Dim NewWks As Worksheet
NewWksName = Worksheets.Count
With NewWkbk
Set NewWks = Nothing
On Error Resume Next
Set NewWks = .Worksheets(NewWksName)
On Error GoTo 0
End With
If NewWks Is Nothing Then
End If
Call Macro10
[B3].Select
ActiveCell = Me.ComboBox1.Value
ActiveSheet.Visible = True
End With
End Sub



Can anyone assist me with this ?

Regards

Corey

thanks

--
Regards

Corey