I'm getting the error at x. How do I define this to go through each cell in the range?
[VBA]Option Explicit
Sub dumpts()
Dim myRange As Object
'Dim yrend As Integer
'yrend = 7
'Do
' Sheets("P200" & yrend).Select
Set myRange = Application.InputBox("Range?", "Range?", Type:=8)
For Each x In myRange
If (x.Value) = "T" Then
x.Select
Selection = "0"
End If
'yrend = yrend + 1
'Loop Until yrend = 9
Next x
End Sub[/VBA]