gtd526
Well-known Member
- Joined
- Jul 30, 2013
- Messages
- 663
- Office Version
- 2019
- Platform
- Windows
Hello,
My Private Sub is not finding "foundRng", which is todays date and it does exist in column A (7/16/2021).
Thank you.
Here is the code:
My Private Sub is not finding "foundRng", which is todays date and it does exist in column A (7/16/2021).
Thank you.
Here is the code:
VBA Code:
Private Sub Workbook_Open()
'using todays date as foundRng
Dim foundRng As Range
Sheets("BJs Income").Select
Set foundRng = Range("A:A").Find(Date)
If Not (foundRng Is Nothing) Then
foundRng.Select
ActiveCell.Offset(0, 11).Select
Selection.Copy
ActiveCell.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
End If
foundRng.Select
End Sub