I need to create a function that will, given a worksheet (passed byRef), and
given a start row, that will clear all of the cells from column D, and the
given row, all the way down (and right) to the bottom of the data. Then it
will select the first cell (column D, and the given starting row) and end
the function.

I've got something like that created, but every time I try to get it to
select from the first cell to the last, I get a "Application-defined or
object-defined error".

What am I missing?


The code is as follows:



Sub ClearWorksheet(ByRef ws As Worksheet, ByVal intStartRow As Integer)
Dim tempString As String

tempString = "D" & CStr(intStartRow)
ws.Range(tempString,
Application.ActiveCell.SpecialCells(xlLastCell)).S elect ' This is the line
giving me the Application-defined error

Selection.ClearContents
ws.Range("D" & CStr(intStartRow)).Select

End Sub



Thanks!
-Scott