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