Compile error: Sub or Function not defined.

Hello,

 Dim sImportFile As String, sFile As String
    Dim sThisBk As Workbook
    Dim vfilename As Variant
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set sThisBk = ActiveWorkbook
    sImportFile = Application.GetOpenFilename( _
    fileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Open Workbook")
    If sImportFile = "False" Then
        MsgBox "No File Selected!"
        Exit Sub
         
    Else
        vfilename = Split(sImportFile, "\")
        sFile = vfilename(UBound(vfilename))
        Application.Workbooks.Open Filename:=sImportFile
         
        Set wbBk = Workbooks(sFile)
        With wbBk
            If SheetExists("Submit Payroll Input") Then
                Set wsSht = .Sheets("Submit Payroll Input")
                wsSht.Copy After:=sThisBk.Sheets("Sheet1")
            Else
                MsgBox "There is no sheet with name :Raw_Data in:" & vbCr & .Name
            End If
            wbBk.Close savechanges:=False
        End With
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

I get Compile error in highlighted code. I have many such codes on the same spreadsheet under Userform1 button and it works fine. I added this code in Userform2 and I get this error message.

any idea why I am getting this error message.

Thanks

I'm assuming SheetExists is a custom vba function as I'm not aware of any built in functions of that name. Therefore the most likely error is that your custom vba function is set to private or only functions for userform1. Either add the code for the sheetexists function into the module the above code is from or declare it as a public function.

well. ? I am not good with coding. I just know tweaks of existing code. This is something new i learned today.
Could you please advise me,as to How to declare it as a public function.?

Note : Same data works fine in Userform1 but does not work in Userform2.

Thanks

I even tried to change the name of Userform2 to Userform1 , but no help.

Private:

Private Function Test_Function1()
'code
End Function

Public:

Public Function Test_Function2()
'code
End Fucntion

in essence. It's hard to provide much input without seeing any of the forms/code/project...

I tried Private function as your suggested, but received some strange error message. It was a big message to type back in note pad.
Please advice.

Thanks

Change the line in the code of userform1:

Private Function SheetExists(sWSName As String) As Boolean

to

Public Function SheetExists(sWSName As String) As Boolean

and change the line in the code of userform2:

If SheetExists("Stock Input") Then

to

If UserForm1.SheetExists("Stock Input") Then

nice!!!!

Both your code worked..

Thanks Norie
Thanks Yudlugar

Regards
Shiva