bjurcina
01-21-2010, 07:41 AM
Error message - item not found
Blue text is what is highlighted
I'm not a programer and I assume this may be simple to the folks on this forum. I can usually figure out what it's trying to do but in a case like this I need either a little push or dirrections to a source of information that will help me to better understand some of the basic commands.
I assume that it is saying to end the macro if mycoltosort = .Shapes(Application.Caller).TopLeftCell.Column and that it can't find some part of that line. ??
Thanks for any suggestions.
End If
myColToSort = .Shapes(Application.Caller).TopLeftCell.Column
Set myTable = .Range("A" & TopRow & ":A" _
& LastRow).Resize(, iCol)
If .Cells(FirstRow, myColToSort).Value _
< .Cells(LastRow, myColToSort).Value Then
mySortOrder = xlDescending
Blue text is what is highlighted
I'm not a programer and I assume this may be simple to the folks on this forum. I can usually figure out what it's trying to do but in a case like this I need either a little push or dirrections to a source of information that will help me to better understand some of the basic commands.
I assume that it is saying to end the macro if mycoltosort = .Shapes(Application.Caller).TopLeftCell.Column and that it can't find some part of that line. ??
Thanks for any suggestions.
End If
myColToSort = .Shapes(Application.Caller).TopLeftCell.Column
Set myTable = .Range("A" & TopRow & ":A" _
& LastRow).Resize(, iCol)
If .Cells(FirstRow, myColToSort).Value _
< .Cells(LastRow, myColToSort).Value Then
mySortOrder = xlDescending