Not cycling through each sheet

  • Thread starter Thread starter Michael Smith
  • Start date Start date
M

Michael Smith

This code is not working for me...I want to cycle through each sheet in
my workbook and run and IF statement. It is not cycling through my
sheets, please help! TIA! - mike


Range("A1").Select
Selection.End(xlDown).Select
Dim TodaysDate
TodaysDate = ActiveCell.Text

Dim WbMain As Workbook
Dim wb As Workbook
Dim Sh As Worksheet

Application.ScreenUpdating = False
Application.EnableEvents = False

Set WbMain = ActiveWorkbook
For Each Sh In WbMain.Worksheets
Range("A1").Select
Selection.End(xlDown).Select
If ActiveCell.Value = TodaysDate Then
Range("A1").End(xlDown).Offset(1, 0).FormulaR1C1 = "=today()"
Range("A1").End(xlDown).Offset(0, 1).Formula = "0"
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("A1").Select
End If
Next Sh
 
try this from anywhere in the workbook.
Sub dobetter()
td = sheets("sheet1").Cells(Rows.Count, "a").End(xlUp)
For Each Sh In Worksheets
slr = Sh.Cells(Rows.Count, "a").End(xlUp).Row
If Sh.Name <> "Sheet1" And Sh.Cells(slr, 1) = td Then
Sh.Range("a1:a" & slr) = Date
Sh.Range("b2:b" & slr) = 0
End If
Next Sh
End Sub
 
Please take notice of the fact that it is NOT necessary to activate or
select. Both are poor coding practices that only slow down the process.
 
Back
Top