make an object visible to others

[lezawang]

Hi
I got error message running the second sub. I thought x would be visible to consequence subs but I guess that is not the case. How can I make x visible to all other subs? Thank you.


Sub workbooksoepn()
Dim x As Workbook
Set x = Workbooks.Open("C:\Users\userme\Desktop\abc.xlsx")
End Sub


Sub protecttheopenfile()
x.Protect
End Sub

 

[shg]

Option Explicit

Sub workbooksoepn()
  Dim x             As Workbook
  
  Set x = Workbooks.Open("C:\Users\userme\Desktop\abc.xlsx")
  protecttheopenfile x
End Sub

Sub protecttheopenfile(x As Workbook)
  x.Protect
End Sub

It would be a kindness if you would use CODE tags.