Hi All!
I have the following code, but am getting a syntax error message. Any assistance would be appreciated:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o>Sub LookUp()<o></o>
On Error GoTo ErrLine<o></o>
Dim rngRequested As Range, rng As Range<o></o>
Set rngRequested = Sheets("Role").Range("B24" & "*" & "Function")<o></o>
Set rng = Workbooks("Pepper.xlsx").Worksheets("Data").Range("MonthWage")<o></o>
With Application<o></o>
.VLookup(rngRequested.Value, rng, 2, False)<o></o>
Exit Sub<o></o>
ErrLine:<o></o>
End With<o></o>
End Sub<o></o>
</o>
I have the following code, but am getting a syntax error message. Any assistance would be appreciated:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o>Sub LookUp()<o></o>
On Error GoTo ErrLine<o></o>
Dim rngRequested As Range, rng As Range<o></o>
Set rngRequested = Sheets("Role").Range("B24" & "*" & "Function")<o></o>
Set rng = Workbooks("Pepper.xlsx").Worksheets("Data").Range("MonthWage")<o></o>
With Application<o></o>
.VLookup(rngRequested.Value, rng, 2, False)<o></o>
Exit Sub<o></o>
ErrLine:<o></o>
End With<o></o>
End Sub<o></o>
</o>