jeg har lavet en makro, som kopiere et ark og jeg skal navngive det, men kan jeg ikke lave så den kopiere arket selv om det er skjult ?
her er min makro:
Sub kopi_EF_frik()
' * ' Initialize
On Error Resume Next
' * ' Define variables
Dim WB As Workbook
Set WB = ActiveWorkbook
WB.Unprotect
If WB.ProtectStructure = True Then
MsgBox "Den aktive regnearksfil er beskyttet, og der kan ikke indsættes/kopieres regneark."
GoTo ES:
End If
If TypeName(WB.Sheets("Master_EF_Friktion")) <> "Worksheet" Then
MsgBox "Det aktive faneblad er ikke et regneark."
GoTo ES:
End If
Dim NewSheetName As String
NewSheetName = Application.InputBox(Prompt:="Angiv ark navn", Title:=" Kopier aktive regneark", Type:=2)
If Len(NewSheetName) < 1 Or UCase$(NewSheetName) = "FALSE" Then GoTo ES:
' * ' Copy active sheet
WB.Sheets("Master_EF_Friktion").Copy after:=WB.Sheets(WB.Sheets.Count)
ActiveSheet.Name = NewSheetName
Sheets("Information").Select
ES: ' End of Sub
Set WB = Nothing
End Sub
--
så længe vi er stive .... er vi i live