Macro or Formula to GO TO a particular Month

[SelinaR]

Hiya

I have a current Macro that finds a date....
Sub searchdate()
Dim i, lr As Integer
lr = ActiveSheet.Range("A65536").End(xlUp).Row

For i = 3 To lr
If Cells(i, 1) = Date Then
Cells(i, 1).Select
Exit For
End If
Next i

End Sub

However I have a spreadsheet that I need to only find the current month that I am in - Column B is the column that hold each month heading from 2010.
EG: Jan-2010

Is there a "Go to" function, a formula or a Macro possible to do this - as I've attempted to manipulate the above Macro and it's not working

THANKS

 

[FormR]

Column B is the column that hold each month heading from 2010.
EG: Jan-2010

Hi - is this the text "Jan-2010" or a date serial formatted to display mmm-yyyy? If it's a date serial is it the 1st of the month?

 

[SelinaR]

Hi - is this the text "Jan-2010" or a date serial formatted to display mmm-yyyy? If it's a date serial is it the 1st of the month?

It is actually a date formula mmm-yyy - is there a way to jump to a month

 

[FormR]

It is actually a date formula mmm-yyy

Can you post the formula?

 

[FormR]

Give this a try:

Sub SearchDate()
Dim r As Range
   Set r = Columns("B").Find(What:=Format(Date, "mmm-yyyy"), LookIn:=xlValues, LookAt:=xlWhole)
   If Not r Is Nothing Then r.Select
End Sub

 

[SelinaR]

Give this a try:

Sub SearchDate()
Dim r As Range
   Set r = Columns("B").Find(What:=Format(Date, "mmm-yyyy"), LookIn:=xlValues, LookAt:=xlWhole)
   If Not r Is Nothing Then r.Select
End Sub

*** YOU ARE A TRUE GENUIS!!!

Thanks a million - you've saved at least 35 minutes of every working day of my life from having to scroll!

BRILLIANT!!!