Question

Hi i have 2 worksheets and using one as a form and one as a data sheet

 Dim DataWks As Worksheet
 Dim InputWks As Worksheet

 Set InputWks = Worksheets("Sheet3")
 Set DataWks = Worksheets("Sheet1")

On the form sheet – InputWks it has an oleobject called tbRiskContext

I want the value of this to be placed in the Datawks – Datasheet in a Range called Database
in cell (2,2)

I can put a value in the range by doing

ActiveSheet.Range("DataBase").Cells(2, 2) = "it works"

but how do i get the value from the oleobject to go in Cell(2,2)

Any idea?

Answer 1

Try the following:

With DataWks
   .Cells(2, 2) = InputWks.OLEObjects("tbRiskContext").Object.Value
End With