Get instant live expert help on I need help with vba on error exit sub

Private Sub CommandButton1_Click() If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3 = "" Then If MsgBox("Form is not complete. Do you want t ocontinue?", vbQuestion + vbYesNo) <> vbYes Then Exit Sub End If End If ActiveCell = TextBox1.Value ActiveCell.Offset(0, 1) = TextBox2.Value ActiveCell.Offset(0, 2) = TextBox3.Value ActiveCell.Offset(1, 0).Select Call resetForm End Sub Sub resetForm() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" UserForm1.TextBox1.SetFocus End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub Label4_Click() End Sub

i'm having issues with the vba private sub code for tableupdate

I need help with VBA Code. Private Sub OptionButton2_click() If OptionButton2.Value = True Then Range("B4").Value = "Alaska Airlines" End Sub

Use the VBA Editor to create a new module. Type the following VBA code to create a custom depreciation function (be sure to include the blank lines after the first line and before the last line). Save and exit the VBA Editor. Function Depreciation (Value, Rate) Depreciation = Value * Rate End Function

Hi, I am getting a compile error: Syntax error with the below macro on the line of "Filename". Can you please assist? Sub Splitbook() MyPath = ThisWorkbook.Sheets For Each sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats AvticeWorkbook.SaveAs Filename := "C:\Users\matt\Desktop\LTI's" & "\" & sht.Name & ".pdf" ActiveWorkbook.Close savechanges:=False Next sht End Sub