You can just put:
Cells(ActiveCell.Row, ActiveCell.column + 1) = sgm
You don't need to select the destination cell. If you want to select it
first, put:
ActiveCell = sgm

HTH Otto
"Blue" wrote in message
.uk...
I have the following code, what syntax do I put to paste sgm value in the
selected cell?

Sub findsqm()

Dim sqm As Long
sqm = Range("K1").Value

(Code in here to open another spreadsheet and find a particular cell)

Cells(ActiveCell.Row, ActiveCell.column + 1).Select

syntax to past sgm value in selected cell

End Sub


Thanks, Brain Dead Blue