Writing a Macro to run a loop which runs a VLOOKUP across each cell in an column. I'm getting a "Run-time error '424' Object required" error but can't pin down the main issue. Any insight or help is appreciated.
Two Issues:
* Run-time error '424' Object required
* Loop continues past last cell with Data until wrap-around or Excel Limit is hit before stopping. Using the dot operators for .ActiveCell and .Value aren't helping.
Sub New_contact_info()
serverName = Cells.Range("AS:AS")
contactInfo = Application.WorksheetFunction.VLookup(serverName, Worksheets("All Active Assets").Range("A:C"), 3, False)
Cells.Range("AM:AM") = contactInfo
For Each cell In serverName
If serverName <> "" Then
serverName.ValueOffset(0, -5) = contactInfo
End If
Next cell
End Sub