Can't get Workbook/sheet reference to work in my function

[most]

Going crazy on this one, what i'm doing wrong?
It's an "Object variable or With block variable not set" on "Set FromWbs" in the function.
/Marcus

Public FromWorkbook As Workbook
Public ToWorkbook As Workbook
Public FromStartRow As Integer
Public ToStartRow As Integer
Sub CopyColumn2Column()
' Use of copy column function
'
  Dim FromWorkbook As Workbook, ToWorkbook As Workbook


 'Global parameters
  Set FromWorkbook = Workbooks("Book1")
  Set ToWorkbook = Workbooks("Book2")
  FromStartRow = 2
  ToStartRow = 3


'CopyC2C(Name, FromSheet, FromColumn, ToSheet, ToColumn)
  Call CopyC2C("Run 01 - Test", "Sheet2", 1, "Sheet1", 2)


End Sub
Function CopyC2C(Name As String, ByRef FromSheet As String, FromColumn As Integer, ByRef ToSheet As String, ToColumn As Integer)
' Function, Copy column to column between two diffrent sheets
'  
  Set FromWbs = FromWorkbook.Sheets(FromSheet)
  Set ToWbs = ToWorkbook.Sheets(ToSheet)
    LastRow = FromWbs.Cells(Rows.count, FromColumn).End(xlUp).Row
    Debug.Print "CopyC2C - " & Name & " | " & FromSheet & ", " & FromColumn & " | " & ToSheet & ", " & ToColumn & " | " & LastRow
    FromWbs.Range(Cells(FromStartRow, FromColumn), Cells(LastRow, FromColumn)).Copy ToWbs.Cells(ToStartRow, ToColumn)
End Function

 

[jolivanes]

What is FromSheet? Is that the actual name of a sheet? If so, it needs to be like "FromSheet"
Otherwise it should be something like

Set FromSheet = FromWorkbook.Sheets("Sheet1")    'or whatever sheet you want to refer to

 

[most]

FromSheet is a input variable (string) in the function.
I already have "Set FromWbs = FromWorkbook.Sheets(FromSheet)" and it's on that row Excel complains.

 

[Fluff]

Remove this line from the code

Dim FromWorkbook As Workbook, ToWorkbook As Workbook

 

[most]

Remove this line from the code

Dim FromWorkbook As Workbook, ToWorkbook As Workbook

I'm usually very lazy when it comes to declaring, and now when I do, it back fires. Hahaha... Thanks!

 

[Fluff]

You're welcome & thanks for the feedback.