Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
Dim wb As Workbook, ws As Worksheet

Set wb = ActiveWorkbook
Set sSheet = wb.Worksheets("Sheet1")
Set dSheet = wb.Worksheets("Dest")
Set wb = ActiveWorkbook
Dim sExists As Boolean
sExists = WorksheetExists("Temp")
If sExists = False Then
With wb
    .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Temp"
End With
End If
Set ws = wb.Worksheets("Temp")
Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function
  • No labels