I'm receiving a "400" error when trying to run one of my macros.
So I decided to step through my code and am getting the below error:
Run-time error '1004': Application-defined or object-defined error
The error is happening right after this section of code
Code:
.Range("A1:G1").Delete
Here is the whole VBA.
Code:
Sub FormatSave()
'Convert to format desired
Dim WS1 As Worksheet
Dim Rand As Long
Set WS1 = Worksheets("N")
Dim lRow1, lRow2 As Long
Dim rcell As Range
'lRow1 = N.Range("A" & Rows.Count).End(xlUp).Row
'lRow2 = Y.Range("A" & Rows.Count).End(xlUp).Row
Set rcell = Columns(1).Find("Steps", LookIn:=xlValues, lookat:=xlWhole)
If Not rcell Is Nothing Then
Rows(rcell.Row).Resize(12).Delete 'CAN REPLACE .Hidden with .Delete if that suits you better
End If
Set rcell = Nothing
If Not WS1 Is Nothing Then
With WS1
' Delete first row
.Range("A1:G1").Delete
' CustomerID
.Range("A:A").ColumnWidth = 7
' Amount
.Range("B:B").ColumnWidth = 18
' Item Type
.Range("C:C").ColumnWidth = 12
' Reference Nbr
.Range("D:D").ColumnWidth = 30
' Accounting Date
.Range("E:E").ColumnWidth = 8
' Term
.Range("F:F").ColumnWidth = 4
' Reversal Ind
.Range("G:G").ColumnWidth = 1
ESTFileDate = Format(Now, "MMDDYYYY")
' Save File as XLS
ChDir "\\test\UWCOL\FA_files"
.SaveAs Filename:= _
"\\test\UWCOL\FA_files\DisbPos_" & ESTFileDate & ".xls", FileFormat:= _
xlPrinter, CreateBackup:=False
' Save File as PRN
ChDir "\\test\UWCOL\FA_files"
.SaveAs Filename:= _
"\\test\UWCOL\FA_files\DisbPos_" & ESTFileDate & ".prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False
' Save File as DAT
ChDir "\\test\UWCOL\FA_files"
.SaveAs Filename:= _
"\\test\UWCOL\FA_files\DisbPos_" & ESTFileDate & ".dat", FileFormat:= _
xlTextPrinter, CreateBackup:=False
End With
End If
With Sheet1
' Save File as XLS
ChDir "\\test\UWCOL\FA_files"
.SaveAs Filename:= _
"\\test\UWCOL\FA_files\DisbAll_" & ESTFileDate & ".xls", FileFormat:= _
xlPrinter, CreateBackup:=False
End With
End Sub