Getting the Value from A Merged Cell

[Ark68]

Consider this range of cells in my worksheet

WS 24-May-22.xlsx
	A	B
13	44705003	<10:45A
14	44705006
15	44705034
16	44697036
CRP

And this line of code:

grmtime = wb_data.Worksheets(grmcrew).Cells(rwcrewrid, 1).Offset(0, 1)

grmcrew = "CRP"
rwcrewid = 14

I am looking to get a value of grmtime = "<10:45A"

Because B13:B16 is merged, is this why in testing, the value of grmtime I'm getting is empty? I was hoping that the cell offset by 1 column would be the value of the merged cell.
Thoughts for improvement?

 

[JEC]

I advise you not to use merged cells. Especially when you are using VBA. They cause errors and mistakes.
First rule when you start with VBA

I acutally thought that you were trying to get rid of merged cells in your previous question

 

[Ark68]

Yes ... first rule. The worksheet with these merged cells is primarily a printed form, so the merging of vertical cells is necessary for the functionality of the printed form. It wasn't designed as a data source, but for my project, it does provide the data I'm looking for. Unfortunately, it's in a merged cell.

Maybe I can temporarily unmerge and populate as per you solution provided earlier.

 

[RoryA]

You could try:

wb_data.Worksheets(grmcrew).Cells(rwcrewrid, 1).Offset(0, 1).Mergearea(1).Value

 

[Ark68]

High five Rory! Thank you. So far it seems to have been the solution.