vlookup over multiple pages using vba

Im trying to write vlookup code using VBA that will cycle through four different worksheets. If the vlookup doesn't match or produce a result, I want a blank. This is the code I have so far. It only looks up the first sheet andenters N/A directly into the cells. I need to fix this before I can cycle through the other sheets.

Sub Button1_Click()

Range("Master_Input_Range").Clear

Dim rngLookupValue As Range
Dim rngBranchCableScheduleCableTagRange As Range
Dim rngEHTCableScheduleCableTagRange As Range
Dim rngHVACCableScheduleCableTagRange As Range
Dim rngPICCableScheduleCableTagRange As Range
Dim rngPartial As Range
Dim varResult As Variant


Set rngLookupValue = Sheets("Master").Range("Master_Tag")
Set rngPartial = Sheets("Master").Range("Master_Partial")
Set rngPICCableScheduleCableTagRange = Sheets("PIC Cable Schedule").Range("PIC_Cable_Schedule_Cable_Tag_Range")
Set rngHVACCableScheduleCableTagRange = Sheets("HVAC Cable Schedule").Range("HVAC_Cable_Schedule_Cable_Tag_Range")
Set rngEHTCableScheduleCableTagRange = Sheets("EHT Cable Schedule").Range("EHT_Cable_Schedule_Cable_Tag_Range")
Set rngBranchCableScheduleCableTagRange = Sheets("Branch Cable Schedule").Range("Branch_Cable_Schedule_Cable_Tag_Range")


varResult = Application.WorksheetFunction.VLookup(rngLookupValue, rngPICCableScheduleCableTagRange, 6, 0)
If Not IsError(varResult) Then rngPartial = varResult

End Sub

forget it. Got it

varResult = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(rngLookupValue, rngPICCableScheduleCableTagRange, 5, False), Application.WorksheetFunction.IfError(App lication.WorksheetFunction.VLookup(rngLookupValue, rngHVACCableScheduleCableTagRange, 7, False), Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(rngLookupValue, r ngEHTCableScheduleCableTagRange, 6, False), Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(rngLookupValue, rngBranchCableScheduleCableTagRange, 5, False), ""))))
If Not IsError(varResult) Then rngPartial = varResult