This is basically what I have. It was working at one time. Not sure why now.


__________________________________________________ __

Private Sub btnProcess_Click()
btnProcess.Enabled = False

Call test1

End Sub
__________________________________________________ __
Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
after:=sh.Range("B0"), _
lookat:=xlPart, _
LookIn:=xlValues, _
searchorder:=xlByRows, _
searchdirection:=xlPrevious, _
MatchCase:=False).Row

On Error GoTo 0
End Function
__________________________________________________ _

Public Sub ProcessSingle1(ws As Worksheet, WS2 As Worksheet, Str As String)

Dim LRow As Long
LRow = LastRow(WS2)
End Sub
__________________________________________________ _

Sub test1()
ActiveCell.Activate
Dim ws As Worksheet
Dim WS2 As Worksheet
Dim Str As String



'UNSCHEDULED
Set ws = Sheets("Unsc.")
Set WS2 = Sheets("Print281")
Str = "81"
Call ProcessSingle(ws, WS2, Str)

End Sub
__________________________________________________ _