Compile Error Expected End With
Contents |
Forums Excel Questions Compile Error: Expected End with????? Results 1 to 3 of 3 Compile Error:
Compile Error Expected End With Vba
Expected End with?????This is a discussion on Compile Error: Expected expected end with macro error End with????? within the Excel Questions forums, part of the Question Forums category; I am compile error named argument not found using this code Code: Sub Worksheet_Activate() ' Range("A1:F32").Select Selection.copy Sheets.Add Range("A1").Select ActiveSheet.Paste ActiveSheet.Name = Sheets("Audit Form").Range("C3").Value Range("A3:E3").Select Selection.copy ... LinkBack LinkBack URL About LinkBacks Bookmark
Vba Compile Error Named Argument Not Found
& Share Digg this Thread!Add Thread to del.icio.usBookmark in TechnoratiTweet this thread Thread Tools Show Printable Version Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode Sep 11th, 2005,05:15 PM #1 jlister1 Board Regular Join Date Sep 2005 Posts 50 Compile Error: Expected End with????? I am using this code
Compile Error Expected End Sub
Code: Sub Worksheet_Activate() ' Range("A1:F32").Select Selection.copy Sheets.Add Range("A1").Select ActiveSheet.Paste ActiveSheet.Name = Sheets("Audit Form").Range("C3").Value Range("A3:E3").Select Selection.copy Sheets("Audit Tracker").Select Range("A3").Select ActiveSheet.Paste Range("A3").Select Selection.EntireRow.Insert Application.CutCopyMode = False Application.ScreenUpdating = False Dim cell As Range For Each cell In Columns(3).SpecialCells(2) ActiveSheet.Hyperlinks.Add _ Anchor:=cell, _ Address:="", _ SubAddress:=cell.Value & "!A1" Next cell Application.ScreenUpdating = True End Sub which works fine, but after adding this code Code: Private Sub ComboBox2_Change() Dim c As Range Dim FirstAddress As String With Sheets("Audit Tracker").Range("Auditor") Set c = .Find(ComboBox2.Value, LookIn:=xlValues) If Not c Is Nothing Then FirstAddress = c.Address Do c.Activate Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> FirstAddress End If End Sub inside my combo box I get the complie error: expected end with. Does anyone have an idea what is going wrong? Share Share this post on Digg Del.icio.us Technorati Twitter Reply With Quote Sep 11th, 2005,05:17 PM #2 Tom Urtis MrExcel MVP Join Dat
be down. Please try the request again. Your cache administrator is webmaster. Generated Thu, 06 Oct 2016 00:33:43 GMT by s_hv978 (squid/3.5.20)
soon) Ruby (coming soon) Getting Started Code Samples Resources Patterns and Practices App Registration Tool Events Podcasts Training API Sandbox Videos Documentation Office Add-ins Office Add-in Availability Office Add-ins https://msdn.microsoft.com/en-us/library/office/gg264799.aspx Changelog Microsoft Graph API Office 365 Connectors Office 365 REST APIs SharePoint Add-ins Office UI Fabric Submit to the Office Store All Documentation https://www.yammer.com/ http://feeds.feedburner.com/office/fmNx Office VBA language reference Visual Basic language reference Error Messages Error Messages Expected End Function Expected End Function Expected End Function #Else clause must be preceded by a matching #If #Else If, #Else, or #End If must be compile error preceded by a matching #If #ElseIf must be preceded by a matching #If or #ElseIf and followed by an #ElseIf, #Else, or #End If