gtd526
Well-known Member
- Joined
- Jul 30, 2013
- Messages
- 657
- Office Version
- 2019
- Platform
- Windows
Hello,
I want todays date Set as a Rng in the following macro:
Thank you.
I want todays date Set as a Rng in the following macro:
VBA Code:
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.