sht.name

Hi The code below works with only one condition in the IF statement (the first one - Summary sheet). However, when I add the other two sheet names that should NOT be cleared, it doesn't work? Do I need to change something in the IF statement? Thanks in advance. Code that works: Sub...

For Each sht In ActiveWorkbook.Worksheets If sht.Visible And sht.Name = ("ASY") And sht.Name = ("TEMP") Then sht.Delete Worksheets.Add().Name = "ASY" Worksheets.Add().Name = "TEMP" Sheets("ASY").Move After:=Sheets("DATA") Sheets("TEMP").Move After:=Sheets("ASY")...

For Each sht In ActiveWorkbook.Worksheets If sht.Visible And (sht.Name = "4-0") _ And (sht.Name = "4-1") _ And (sht.Name = "4-2") Then sht.Delete End If Next sht Hello all I thought the code above would loop through the workbook and delete the specific sheets listed...

For Each sht In ActiveWorkbook.Worksheets If (sht.Name = "Recovery") And (sht.Name = "Revisions") Then sht.Activate With Range("A7:AV3000") .Clear .NumberFormat = "General" .Interior.Pattern = xlNone Range("B6") = "Document Number"...

Sub Clear_Eng_1() Dim sht As Worksheets For Each sht In ActiveWorkbook.Worksheets If (sht.Name <> "ECD") And (sht.Name <> "Revisions") Then sht.Activate With Range("A7:AV3000") .Clear .NumberFormat = "General" .Interior.Pattern = xlNone...

Hi I have this formula below (thanks Rick Rothstein!) that combines all worksheet data in to one worksheet. However, I need to exclude those worksheets/tab with no data at all (only with header). PLEASE HELP ME! THANK YOU!!! Sub Button2_Click() Dim NextRow As Long, Sht As Worksheet For...

Hi, pls help. I am combining all worksheets data into one worksheet. Below is the code. However, it's only copying the second row data (below header). How can I copy all? Thanks! Sub Button2_Click() Dim Sht As Worksheet For Each Sht In ActiveWorkbook.Worksheets If Sht.Name <> "READ ME" And...