Moderator: 2020vision
by alrodopial » Tue Oct 01, 2013 5:33 pm
by osknows » Tue Oct 01, 2013 7:43 pm
Sub selectedCells()Dim MyRow1 As LongDim MyRow2 As LongDim MyAddress() As String With Selection If .Count = 2 Then MyAddress = Split(.Address, ",") MyRow1 = Split(MyAddress(0), "$")(2) MyRow2 = Split(MyAddress(1), "$")(2) End If End WithEnd Sub
by alrodopial » Tue Oct 01, 2013 9:19 pm