kemperohlmeyer
Board Regular
- Joined
- Oct 4, 2006
- Messages
- 73
For some reason this sub won't run. It returns a "type mismatch error". The debugger claims that the line with "****" in front of it is the error. Please help.
ko
Sub CopyPasteTest()
Dim sht As Worksheet
ThisWorkbook.Sheets("CopySheet").Cells.Copy
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "Procedure" And sht.Name <> "Manager List" And sht.Name <> "CopySheet" Then
****ThisWorkbook.Sheets(sht).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, skipblanks:=True, Transpose:=False
End If
Next sht
End Sub
ko
Sub CopyPasteTest()
Dim sht As Worksheet
ThisWorkbook.Sheets("CopySheet").Cells.Copy
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "Procedure" And sht.Name <> "Manager List" And sht.Name <> "CopySheet" Then
****ThisWorkbook.Sheets(sht).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, skipblanks:=True, Transpose:=False
End If
Next sht
End Sub