What ended up working for me was switching my code to the following:
'Set station cell value
iRow = rEmptyStation.Row
iColumn = rEmptyStation.Column
Cells(iRow - 1, iColumn).Copy
Cells(iRow, iColumn).Select
Selection.PasteSpecial xlPasteFormats
rEmptyStation.Value = sStation
Now, I don't know why, but when I have the code as the following, I get the object error (at the Selection.Paste
line):
'Set station cell value
iRow = rEmptyStation.Row
iColumn = rEmptyStation.Column
Cells(iRow - 1, iColumn).Copy
Cells(iRow, iColumn).Select
Selection.Paste
rEmptyStation.Value = sStation
Here is a link to my project in its entirety. If anyone can figure that out, that'd be great (the code after this snippet in question is NOT TESTED!).