Hi, I was wondering if someone can add code to below to test if the worksheet "TOT FAB" exists - if it does not exist then let the existing code create it. If it does exist, then I would like to overwrite the data. Thanks in advance.
Sub TOT_FAB()
Sub TOT_FAB()
VBA Code:
Application.ScreenUpdating = False
Range("A8:C" & Range("A8").End(xlDown).Row).Copy
Sheets.Add(After:=Sheets("PARTS LIST")).name = "TOT FAB"
Worksheets("TOT FAB").Range("A3").PasteSpecial Paste:=xlPasteFormulas
Range("C:C").Select
Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
OtherChar:="X", FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(9, 1)), _
TrailingMinusNumbers:=True
Range("E3").Select
Columns("A:A").AutoFit
Columns("B:B").HorizontalAlignment = xlCenter
Columns("C:E").HorizontalAlignment = xlLeft
Columns("B:B").ColumnWidth = 5
Columns("C:D").ColumnWidth = 6
Range("A1") = "DESCRIPTION"
Range("B1") = "QUA"
Range("C1") = "WID"
Range("D1") = "LEN"
Application.ScreenUpdating = True
End Sub