CutCopy mode goes to False

  • Thread starter Thread starter Steven
  • Start date Start date
S

Steven

Why in the following code does the Application.CutCopyMode automatically go
to false and now I cannot copy anything in the file. Is sure seems to be
centered around the ... Application.WorksheetFunction.VLookup(vAcct, rAcct,
2, 0) ...
If that is the issue, is there a way around it?

Thank you,

Steven


On Errror Resume Next
Dim vAcct, vSBString As String
Dim rAcct As Range

If IsEmpty(Cells(ActiveCell.Row, 3)) = True Or Len(Cells(ActiveCell.Row, 3))
= 0 Then
Application.StatusBar = False
Else
vAcct = Cells(ActiveCell.Row, 3)
Set rAcct = Worksheets("Sheet2").Range("a:b")
vAcctDescr = Application.WorksheetFunction.VLookup(vAcct, rAcct, 2, 0)
If IsError(vAcctDescr) = True Or IsEmpty(vAcctDescr) = True Then

Else
vSBString = vAcctDescr
Application.DisplayStatusBar = True
Application.StatusBar = vSBString
End If
End If
 
You'll probably have better luck asking this question in an Excel forum.
This one is for discussion of Microsoft Access, the database program.
 
Back
Top