Get_Involved
Active Member
- Joined
- Jan 26, 2007
- Messages
- 383
How do I get this code to work?
Range R4 is the one I am trying to get to work.
I have the code in "ThisWorkbook"
Code:
Private Sub Workbook_Open()
Dim Ans As String
Ans = MsgBox("Update Invoice Number (???)", vbYesNo + vbInformation)
If Ans = vbYes Then
With Sheets("Expense Report").Range("H4")
.Value = .Value + 1
With Sheets("Legend").Range("Q4")
.Value = .Value + 1
With Sheets("Legend").Range("R4")
.Value = . Value + MAX('Bid Calculator'!C29:G29)
Range R4 is the one I am trying to get to work.
I have the code in "ThisWorkbook"
Last edited: