Searching 1 column for data

Hello,

I would like to create a macro to search Column A for any entries & if there is no data in Column A, insert the words "No Data" into Cell A2. If there is data, then sort the data descending. I can sort the data, but am not sure how to search the column ??

Thanks,

Oreg

Something like this probably:

If WorksheetFunction.CountA(Range("A:A")) = 0 Then
Range("A2") = "No Data"
Else
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If


Mangesh

Hi Oreg,

Set rng = Worksheets("Sheet1").Range("A:A")
If WorksheetFunction.CountA(rng) = 0 Then
' no data in column A
Worksheets("Sheet1").Range("A2") = "No Data"
End If

Ed Ferrero
http://edferrero.m6.net

> I would like to create a macro to search Column A for any entries & if
> there is no data in Column A, insert the words "No Data" into Cell A2.
> If there is data, then sort the data descending. I can sort the data,
> but am not sure how to search the column ??
>
> Thanks,
>
> Oreg

Mangesh & Ed,

Thanks for the responses....that's just what I needed !!

Oreg