Page tree

Welcome to FreeSoftwareServers Confluence Wiki

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

Set wb = ActiveWorkbook
Set ws = wb.Activesheet
Dim ASName As String, AS As Worksheet
ASName = ActiveSheet.name
AS = ThisWorkbook.Sheets(ASName)
ThisWorkbook
ActiveWorkbook
Worksheets("Sheet1")
Activesheet
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