View Single Post
 
Old 04-10-2024, 10:11 AM
Italophile Italophile is offline Windows 11 Office 2021
Expert
 
Join Date: Mar 2022
Posts: 538
Italophile is just really niceItalophile is just really niceItalophile is just really niceItalophile is just really nice
Default

In the code block after
Code:
 Set rCell = .Cell(i, 2).Range
add a test for
Code:
If i = .Rows.Count Then
add add in your code to replace the semi-colon
Reply With Quote