Else without If error

[jmazorra]

Hi folks:

When I run the code below I get an Else without If error. I am newbie to VBA so this may be easy for someone with experience.

Sub sheets()

Dim sourceFile As String
Dim destFile As String


sourceFile = "DBboard.xls"
destFile = Workbooks(sFile).Path & "\Fixed Assests.xls"


If Len(Dir(destFile)) > 0 Then
With Workbooks.Open(destFile)

.Worksheets(1).Cells.Copy Workbooks(sFile).Worksheets("Fixed Assets").Range("A1")
Else

If Len(Dir(sFileToOpen)) <> 0 Then
MsgBox "Test"
.Close savechanges:=False
End If
End With

End Sub

 

[mikerickson]

The With Workbooks.Open(destfile) line should go before the If Len(Dir(destFile)) > 0 Then line.

 

[xladept]

Try it like this:

Sub sheets()

Dim sourceFile As String
Dim destFile As String


sourceFile = "DBboard.xls"
destFile = Workbooks(sFile).Path & "\Fixed Assests.xls"


If Len(Dir(destFile)) > 0 Then
With Workbooks.Open(destFile)

.Worksheets(1).Cells.Copy Workbooks(sFile).Worksheets("Fixed Assets").Range("A1")

ElseIf Len(Dir(sFileToOpen)) <> 0 Then
MsgBox "Test"
.Close savechanges:=False
End If
End With

End Sub

 

[p45cal]

try:

Sub sheets()
Dim sourceFile As String
Dim destFile As String

sourceFile = "DBboard.xls"
destFile = Workbooks(sFile).Path & "\Fixed Assests.xls"

With Workbooks.Open(destFile)
  If Len(Dir(destFile)) > 0 Then
    .Worksheets(1).Cells.copy Workbooks(sFile).Worksheets("Fixed Assets").Range("A1")
  Else
    If Len(Dir(sFileToOpen)) <> 0 Then
      MsgBox "Test"
      .Close savechanges:=False
    End If
  End If
End With
End Sub

 

[jmazorra]

Thank you folks, I knew it was something simple