ダイナミックレンジをテキストとしてフォーマットする

Question

データベースにロードする前に、すべての非数値セルをテキストにフォーマットするmakroを書いています。何が問題なのか分かりません。私のVBAスキルは悪いです。実行時エラー '424'が表示されます。

Sub formatAllCellsAsText() 

    Dim wsTemp As Worksheet 
    Dim LastRow As Long 
    Dim LastColumn As Long 
    Dim StartCell As Range 
    For sht = 3 To Worksheets.Count 
     Set wsTemp = Sheets(sht) 
     Set StartCell = Range("A4") 
     LastRow = wsTemp.Range("A1").CurrentRegion.Rows.Count 
     LastColumn = wsTemp.Range("A1").CurrentRegion.Columns.Count 
     For Each Cell In wsTemp.Range(StartCell, wsTemp.Cells(LastRow, LastColumn)).Cells 

     If Not IsEmpty(Cell.Value) And IsNumeric(Cell.Value) And InStr(wsTemp.Cells(1, Cell.Column), "Client ID") <= 0 Then 

      Dim Temp As Double 
      Temp = Cell.Value 
      Cell.ClearContents 
      Cell.NumberFormat = "@" 
      Cell.Value = CStr(Temp) 
      End If 
     Next 
    Next sht 
End Sub 

Answer 1

Set StartCell = Range("A4") 

は

Set StartCell = wsTemp.Range("A4") 

Answer 2

はちょうど私が、おそらく問題を発見したとして集計するべきです。 私の最初のコードでは、後で言及したCell変数を設定しませんでした。私はCellがVBAのために自明であると思った。