I'm still struggling

[ColdGeorge]

Hi all
The code shown below is working just fine

Private Sub Workbook_Open()
Worksheets("Publicaciones").Activate
Dim celda As Range
For Each celda In Worksheets("Publicaciones").Range("B2:B1000")
  If celda.Value = Date Then
      celda.Select
  End If
  Next
Application.Goto Selection, scroll:=True
ActiveWindow.ScrollColumn = 1
End Sub

This one is not, I'd like to know why, can you help?

Private Sub Workbook_Open()
Worksheets("Publicaciones").Activate
Dim celda As Range

Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Dim rng As Range
Set rng = Range("B" & lastrow)

For Each celda In rng
   If celda.Value = Date Then
       celda.Select
   End If
   
   Next
 
Application.Goto Selection, scroll:=True
ActiveWindow.ScrollColumn = 1
End Sub

Any suggestion? thanks in advance.

 

[MARK858]

Set rng = Range("B" & lastrow)

Is a single cell, is that right?

Probably you meant

Set rng = Range("B2:B" & lastrow)

 

[ColdGeorge]

Hi MARK858, thanks for your help

This is the final working code

Private Sub Workbook_Open()
Worksheets("Publicaciones").Activate
Dim celda As Range

Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row

Dim rng As Range
Set rng = Range("B2:B" & lastrow)

For Each celda In rng
   If celda.Value = Date Then
       celda.Select
   End If
    
   Next
  
Application.Goto Selection, scroll:=True
ActiveWindow.ScrollColumn = 1
End Sub

Thanks, ColdGeorge

 

[MARK858]

You're welcome