gtd526
Well-known Member
- Joined
- Jul 30, 2013
- Messages
- 657
- Office Version
- 2019
- Platform
- Windows
Hello,
My Private Sub in not running when the workbook is opened. I have it stored in "ThisWorkbook".
Thank you.
Here is the code Im using:
My Private Sub in not running when the workbook is opened. I have it stored in "ThisWorkbook".
Thank you.
Here is the code Im using:
VBA Code:
Private Sub PastePotentialValue()
'paste special values in potential hours on Fridays date
Dim foundRng As Range
Sheets("BJs Income").Select
Range("Q1").Value = "HELP"
Set foundRng = Range("A:A").Find(CStr(Date), LookIn:=xlValues, lookat:=xlWhole)
If Not (foundRng Is Nothing) Then
foundRng.Select
ActiveCell.Offset(0, 14).Select
Selection.Copy
ActiveCell.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
End If
Application.CutCopyMode = alse
End Sub