Can get to final column

[kbarton]

Hi

I am having problems with some code finding the last column in a set of data. Currently the coding below takes me to the one before the last column, I'm not sure why, but the 'Resize(, Col) seems to be the culprit.

Does anyone have any ideas how to get this so that it will find the last column in a set of data?

With Sheets("Total_Sheets")
.Range("A1").Resize(, 3) = Array("Date", "Account", "Details")
Set Rng = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, Col)

Many thanks for any answers.

Regards

Kev

 

[kbarton]

Just bought the Mr Excel Live Lessons, on VBA, which are excellent!