Sub DelNA()

'Made by Towa Tachibana, on June 28, 2008
' Delete specific entries, such as NA, in the seletced area

Dim myRng As Range
Dim myDel As Variant


' MsgBox ("Please select the area (cells) you would like to work on.")


Set myRng = Selection
'Choose the area I would like to delete the entries of "na"

myDel = InputBox("Please indicate the entry you would like to Delete")


For Each myRng In Selection
If myRng.Value = myDel Then
    myRng.Value = ""
End If
Next


End Sub