Today() in a Macro

[gtd526]

Hello,
I want todays date Set as a Rng in the following macro:

 Dim Rng As Range
    
        Set Rng = Today()
        Sheets("BJ's Income").Select
        Set foundRng = Range("A:A").Find(Rng)
        
    'if "Not" Nothing (if its found) then perform code
        If Not (foundRng Is Nothing) Then
            foundRng.Select
            ActiveCell.Offset(11, 0).Select
            Selection.Copy
            ActiveCell.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

Thank you.

 

[DanteAmor]

Today is not a cell or cell range.
In vba you don't use Today you use Date.
You can assign Date to a variable, for example:

Sub otest()
  Dim foundRng As Range
  Dim dt As Date
  dt = Date
  Sheets("BJ's Income").Select
  Set foundRng = Range("A:A").Find(dt)
  If Not (foundRng Is Nothing) Then
    foundRng.Select
  End If
End Sub

Or directly

Sub otest2()
  Dim foundRng As Range
  Sheets("BJ's Income").Select
  Set foundRng = Range("A:A").Find(Date)
  If Not (foundRng Is Nothing) Then
    foundRng.Select
  End If
End Sub

 

[gtd526]

Today is not a cell or cell range.
In vba you don't use Today you use Date.
You can assign Date to a variable, for example:

Sub otest()
  Dim foundRng As Range
  Dim dt As Date
  dt = Date
  Sheets("BJ's Income").Select
  Set foundRng = Range("A:A").Find(dt)
  If Not (foundRng Is Nothing) Then
    foundRng.Select
  End If
End Sub

Or directly

Sub otest2()
  Dim foundRng As Range
  Sheets("BJ's Income").Select
  Set foundRng = Range("A:A").Find(Date)
  If Not (foundRng Is Nothing) Then
    foundRng.Select
  End If
End Sub

Thank you.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.