accidently declared the array twice - you can drop the first
declaration.
--------------------------------
Sub RemoveDuplicates()
Dim count, totalrows, row As Integer ' used as a counter
totalrows = ActiveSheet.UsedRange.Rows.count
ReDim SrvNameArry(totalrows) As String
count = 0
For row = totalrows To 2 Step -1
If Cells(row, 1).Value = Cells(row - 1, 1).Value Then
SrvNameArry(count) = Cells(row, 1).Value
count = count + 1
End If
Next row
End Sub
------------------------------------