Finding a value and copying the formula from an adjacent cell

[akronpow]

I am trying to write a macro that takes a value in Sheet 1 and finds i
in Sheet 2. Then once the value is found in sheet 2, the hyperlin
formula in the adjacent right cell is copied over to a specific cell i
Sheet 1. I couldn't use the VLOOKUP function because that just carrie
over the value, but I need to formula to copy over

 

[Don Guillett]

does this work?

Sub findandcopyhyperlink()
Sheets("sheet2").Cells.Find(Range("a1")). _
Offset(, 1).Copy Range("b1")
End Sub