Excel VB autofill problem 2

[imarosel]

The following code only works when I activate and select the workbook and sheet it applies to.

Workbooks(sWorkbookToSort).Sheets(sSheetToSort).Range("B2:C2").AutoFill Destination:=Range(Cells(2, 2), Cells(iMaxRow, 3)), Type:=xlFillDefault

How could I get around that?

 

[SkipVought]

Hi,

fully refrence ALL ranges...

With Workbooks(sWorkbookToSort).Sheets(sSheetToSort)
    .Range("B2:C2").AutoFill _
        Destination:=[red][b].[/b][/red]Range(Cells(2, 2), _
        Cells(iMaxRow, 3)), _
        Type:=xlFillDefault
End With

Skip,
[sub]
When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large[/sub]

 

[imarosel]

Skip, thanks for the response. I thought I responded to your response but must have clicked the wrong button or something. I'm still having a problem.

This works:

Workbooks(sWorkbookToSort).Sheets(sSheetToSort).Activate
Workbooks(sWorkbookToSort).Sheets(sSheetToSort).Select
With Workbooks(sWorkbookToSort).Sheets(sSheetToSort)
    .Range("B2:C2").AutoFill _
        Destination:=.Range(Cells(2, 2), _
        Cells(iMaxRow, 3)), _
        Type:=xlFillDefault
End With

This does not work:

With Workbooks(sWorkbookToSort).Sheets(sSheetToSort)
    .Range("B2:C2").AutoFill _
        Destination:=.Range(Cells(2, 2), _
        Cells(iMaxRow, 3)), _
        Type:=xlFillDefault
End With

I believe I am referencing all ranges now, but something is still not working. I get an error: "runtime error '1004' Application-defined or object-defined error." Any advice?

 

[PHV]

And this ?

With Workbooks(sWorkbookToSort).Sheets(sSheetToSort)
    .Range("B2:C2").AutoFill _
        Destination:=.Range([!].[/!]Cells(2, 2), _
        [!].[/!]Cells(iMaxRow, 3)), _
        Type:=xlFillDefault
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[imarosel]

ahhh shoot, that was it. I should've figured that out.