Hiding a tab

[goofy78270]

I am trying to hide a tab within a workbook but it is giving me an error because I am using a macro to copy information for this sheet from another book. How can I unhide and then hide the sheet within the macro or is there another way to do this?

 

[Domski]

You don't need the with statment, paste special behaves a little different to paste in VBA so this should work:

Sub PastetoMatrixWorkbook()

Application.ScreenUpdating = False

If isWorkbookOpen("Matrix.xls") = False Then Workbooks.Open Filename:="C:\Matrix.xls"

Workbooks("EMPSEC Data.xls").Sheets("Drop-Down Data").Cells.Copy

Workbooks("Matrix.xls").Sheets("Drop-Down Data").Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Workbooks("EMPSEC Data.xls").Sheets("Matrix Results").Cells.Copy

Workbooks("Matrix.xls").Sheets("Matrix Results").Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

With Workbooks("Matrix.xls")

    .Save
    .Close

End With

Application.ScreenUpdating = True

End Sub


Function isWorkbookOpen(workbookName As String) As Boolean
On Error Resume Next
isWorkbookOpen = (Workbooks(workbookName).Name = workbookName)
On Error GoTo 0
End Function

Dom