Excel 2016 & 2021 VBA trying to open workbook based on Sheet 7 cell D3

[CrashOD]

' To load work book based on cell value
' Real Estate Books
Dim varCellvalueReal As String
'Filename:=Sheets("Sheet1").Range("A2").Value & "\" & Sheets("Sheet2").Range("A2").Value)
varCellvalueReal = Workbook(Filename:=Sheets("Sheet7").Range("D3").Value) ' & "\" & Sheets("Sheet2").Range("A2").Value)
' Personal Books
'Dim varCellvaluePer As String
varCellvaluePer = Range.Worksheet(7, ("D3"))




strFromDate = txtFromDate.Value
strToDate = txtToDate.Value

aFromDate = Split(strFromDate, "/")
aToDate = Split(strToDate, "/")

dtFromDate = DateSerial(aFromDate(2), aFromDate(0), aFromDate(1))
dtToDate = DateSerial(aToDate(2), aToDate(0), aToDate(1))
dtCheckDate = dtFromDate

Application.Interactive = False

Set oReportWorkbook = ActiveWorkbook
Set oReportWorksheet = ActiveSheet

' To Open WOrkbooks
Set oWorkbook1 = Workbooks.Open(varCellvaluePer)
Set oWorkbook2 = Workbooks.Open(varCellvalueReal)



Sheet7

ECT - Report_V1_3-1-test.xlsm
	A	B	C	D	E	F	G
1		Location	File	Joined
2	Real	D:\Country&LocalReport\	2022 - ECT - Real Estate.xlsx	D:\Country&LocalReport\2022 - ECT - Real Estate.xlsx
3	Personal	D:\Country&LocalReport\	2022 - ECT - C&L - Personal.xlsm	D:\Country&LocalReport\2022 - ECT - C&L - Personal.xlsm
4	Rows	7000
Report Location

Cell Formulas
Range	Formula
D2:D3	D2	=CONCATENATE(B2,C2)

 

[CrashOD]

VBA to use cell reference and open another workbook

I have the following code in a workbook and it works perfectly, it opens the corresponding csv file, updates information and closes the csv, I am trying to change the address from being written into the code to being retrieved from a cell reference. Any advice is much appreciated. Sub...

www.mrexcel.com

had my answer but thanks !

 

[CrashOD]

' To load work book based on cell value
' Real Estate Books
varCellvalueReal = Trim(LTrim(Cells(2, "D").Value)) '1 is rownumber A is the column, read address from A1
' Personal Books
'Dim varCellvaluePer As String
'varCellvaluePer = Range.Worksheet(7, ("D3"))
varCellvaluePer = Trim(LTrim(Cells(3, "D").Value)) '1 is rownumber A is the column, read address from A1

lol so messed up. how do i get it to read from Sheet7 cell D2