Question: [![enter image description here](https://i.stack.imgur.com/ov5TG.png)](https://i.stack.imgur.com/ov5TG.png)

I want to copy a hidden worksheet using VBA. However, When it run the vba code, all the copied worksheets are hidden as well, may I know is there any method to copy the worksheet and the new created worksheet is not hidden? My VBA code is as follows:

```
Sub CopySheet()

Sheet6.Copy After:=Sheets(Sheets.Count)

End Sub

```

Answer: 
Please, try:

```
Sheet6.Copy After:=Sheets(Sheets.count)
Sheets(Sheets.count).Visible = xlSheetVisible

```
```
Sub CopySheet6()

  Sheet6.Copy After:=Sheets(Sheets.Count)

  Worksheets("Sheet6 (" & Sheets.Count - 1 & ")").Visible = True

End Sub

```