User Forms and Global Variable

[guexc1977]

The below is my code.

When ufmAccount is shown, it no longer recognizes wsA. It returns a runtime error 91.

Why is this? I thought a public variable can be used throughout.

Thank you in advance.

Public wsA As Worksheet, wbA As WorkbookSub NewExpense()
Dim sExpDesc As String, sReplace As String, sAccName As String, wbA As Workbook, wsA As Worksheet, iNextRow As Integer
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
iNextRow = 30
Do
    iNextRow = iNextRow + 1
Loop Until wsA.Cells(iNextRow, 1) = ""
sExpDesc = InputBox("Enter what the new expense is...", "New Expense")
wsA.Cells(iNextRow, 4) = sExpDesc
ufmAccount.txtNewExp.Value = sExpDesc
'ufmAccount.lbxAccount.AddItem
ufmAccount.Show
End Sub

 

[Fluff]

It's because you are declaring them again in the sub. Remove the part in red

Public wsA As Worksheet, wbA As Workbook
Sub NewExpense()
Dim sExpDesc As String, sReplace As String, sAccName As String,[COLOR=#ff0000] wbA As Workbook, wsA As Worksheet[/COLOR], iNextRow As Integer
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
iNextRow = 30
Do
    iNextRow = iNextRow + 1
Loop Until wsA.Cells(iNextRow, 1) = ""
sExpDesc = InputBox("Enter what the new expense is...", "New Expense")
wsA.Cells(iNextRow, 4) = sExpDesc
ufmAccount.txtNewExp.Value = sExpDesc
'ufmAccount.lbxAccount.AddItem
ufmAccount.Show
End Sub

 

[shg]

Public variables need to be declared in a standard code module (not in a class module), above all procedures -- just below Option Explicit.

 

[guexc1977]

That was most helpful. Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback