Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Possible causes of this error (2000 sr -1)

    Thi is a piece of my code but during the code have error "1004" Error Method Copy in class Worksheet....
    ....
    If FASE = 3 Then
    If str1 <> var_DIP Then
    For Each c In ActiveWorkbook.Sheets
    If c.Name = var_DIP Then
    Set Foglio1 = c: Exit For
    Else
    Set Foglio1 = Nothing
    End If
    Next c
    If Foglio1 Is Nothing Then
    Sheets("TEMPLATE").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    Set Foglio1 = ActiveSheet
    Foglio1.Visible = xlSheetVisible
    Foglio1.Name = var_DIP

    'Worksheets("MENU").Range("A65536").End(xlUp).Offs et(1, 0) = var_DIP

    Application.Wait Now + TimeValue("00:00:02")

    End If
    Else
    str1 = var_DIP
    End If
    .....

  2. #2
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts

    Re: Possible causes of this error (2000 sr -1)

    See if MSKB Article 210684 applies.
    HTH
    Regards,
    Rory

    Microsoft MVP - Excel

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •