"Worksheets("Seqnum").Visible = xlSheetVisible" not working

[matthewh]

Having probs with code that did work and now doesn't...

' Open New form and increment serial number by 1

INITIALISE

Sheets("Seqnum").Unprotect
Worksheets("Seqnum").Visible = xlSheetVisible
Application.ScreenUpdating = False

Sheets("Seqnum").Select
Range("A1").Select
Selection.copy

The bit with:

Worksheets("Seqnum").Visible = xlSheetVisible

is causing the problem, but I don't think anything has changed. Can anyone offer any ideas?

Thanks

[s-o-s]

On 2002-07-11 04:51, matthewh wrote:
Having probs with code that did work and now doesn't...

' Open New form and increment serial number by 1

INITIALISE

Sheets("Seqnum").Unprotect
Worksheets("Seqnum").Visible = xlSheetVisible
Application.ScreenUpdating = False

Sheets("Seqnum").Select
Range("A1").Select
Selection.copy

The bit with:

Worksheets("Seqnum").Visible = xlSheetVisible

is causing the problem, but I don't think anything has changed. Can anyone offer any ideas?

Thanks

Try replacing with

 Worksheets("Seqnum").Visible = True

[Dave Hawley]

Hi matthewh


The use of: xlSheetVisible is quite ok. Not sure what your aim is but you need not unhide a sheet to copy from it, or even unprotect it.

Sheets("Seqnum").Range("A1").Copy _
Destination:=Sheets("Sheet1").Range("A1")

Will work the same as:

With Sheets("Seqnum")
      .Unprotect
      .Visible = xlSheetVisible
      .Range("A1").Copy Destination:=Sheets("Sheet1").Range("A1")
End With

Just make sure that the Workbook is not protected for Structure, Tools>Protection>Workbook

_________________
Kind Regards
Dave Hawley
8 Add-ins in one
Forty+ more here
OzGrid.com

[ This Message was edited by: Dave Hawley on 2002-07-11 05:27 ]