Define Variable then paste value followed by text to a cell

[eawachte]

I am in one workbook and offset and select a cell. I take the value from that go to another workbook and want to paste that value plus some constant text after that. I can not seem to get it to work. I have used something similar to what is below, but it worked just fine.

Workbooks(NEWFN2).Activate
ActiveWorkbook.Sheets("Input Data").Range("A3:IS3").Find(RunNumber).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 5).Select
CamberWT = Selection.Value


Workbooks(Pull).Activate
'This is what will not work for me
ActiveWorkbook.ActiveSheet.Range("J15").Value = Selection.Value & " " & "Wheel Travel"
End Sub

Any help is greatly appreciated!!

Thanks

 

[p45cal]

try changing:
= Selection.Value & " " & "Wheel Travel"
to:
=CamberWT & " " & "Wheel Travel"

or replacing the entire code you gave with:

Set zzz = Workbooks(NEWFN2).Sheets("Input Data").Range("A3:IS3").Find(RunNumber)
If Not zzz Is Nothing Then
    Workbooks(Pull).Activate
    ActiveWorkbook.ActiveSheet.Range("J15").Value = zzz.Offset(1, 5).Value & " " & "Wheel Travel"
End If

and if you knew the name of the sheet in the Pull workbook:

Set zzz = Workbooks(NEWFN2).Sheets("Input Data").Range("A3:IS3").Find(RunNumber)
If Not zzz Is Nothing Then Workbooks(Pull).Sheets([COLOR=#ff0000]"NameOfSheetHere"[/COLOR]).Range("J15").Value = zzz.Offset(1, 5).Value & " " & "Wheel Travel"

 

[eawachte]

Thank you!! The second option worked.

I did accidentally post the wrong code (which addressed your first option) I had

Workbooks(NEWFN2).Activate
ActiveWorkbook.Sheets("Input Data").Range("A3:IS3").Find(RunNumber).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 5).Select
CamberWT = Selection.Value


Workbooks(Pull).Activate
'This is what will not work for me
ActiveWorkbook.ActiveSheet.Range("J15").Value = CamberWT & " " & "Wheel Travel"
End Sub

I'm really confused why this doesn't work. I had done this exact code before and it worked fine. Any ideas why?

Thanks so much for the help!

Gene