Excelvbaでブック、シート名を別の名前におき変えて共通して使えるようにしたい

Question

度々お世話になります。
タイトルわかりにくくて申し訳ありません。
初歩的な質問なのです。

当方顧客データのカルテのようなユーザーフォームを作成しております。
ワークシート間、ワークブック間を行き来することが多いためいちいちシート名等のオブジェクトを記述するのは大変な上メンテナンス上良くないと思っています。
そこで標準モジュールでpublicにて変数定義の上glbプロシージャにで変数にオブジェクトを割り当てています。
これをcallを使い各ユーザーフォームのpublicプロシージャを作成し付け加えようと思っていますがうまくいきません。
うまくいかない=オブジェクトがありません。
この時点でうまく割り当てや呼び出しができていないと思われます。

もっと欲を言えば標準モジュール内で変数にオブジェクトが割り当ててあるからもう一度呼び出してという作業すらなくしたいくらいなのですが、
それはできなさそうなのでとりあえずはcallで呼び出そうかと思いましてそうしました。

なにかよい方法あれば教えてください。
ただし変数の宣言と変数へのオブジェクトの割り当ては一度きりにしたいです。

標準モジュール

Public glbwb As Workbook
Public glbws As Worksheet

Public Sub glb()
Set glbwb = ThisWorkbook
Set glbws = WorkSheets(1)

追記
glbは標準モジュール内に記載されております。
このglbを呼び出して使いたいです。
しかしこのまま使うとオブジェクトがありませんとエラーがでてしまいます。
みなさんはどのようにされてますか？

Comments

[meg_]

・glb()はどのタイミングでどこから呼ばれるのですか？
・「うまくいかない=オブジェクトがありません。」とはエラーが出たという意味ですか？ エラーが発生したコードと正確なエラーメッセージを掲載しないと回答がつきにくいかと思います。

[sinzou]

一つユーザーフォーム（モードレス表示）で、Book、Sheetを切り替えながら
処理ボタンをポチポチ。なら変数の宣言は一か所ですみそうですが。

Answer 1

推測で回答します。
glbがどこから呼ばれるのかが不明なので2パターン考えてみました。

１．色々なブック・シートから呼ばれ、その呼び元を対象に処理を行いたい

この場合はglbの引数として対象としたいシートを渡してあげればよいでしょう。

別シート
Sub Test
    Call glb(ThisWorkbook, Me)
End Sub

標準モジュール
Public Sub glb(glbwb As Workbook, glbws As Worksheet)
End Sub

２．色々なブック・シートから呼ばれるが、対象は常にアクティブのブック・シートである

この場合はそのまんま、アクティブブックとシートを取得すればよいです。
※但しアクティブ前提の処理は破綻しやすいので推奨しません

標準モジュール
Public Sub glb
    Set glbwb = ActiveWorkbook
    Set glbws = ActiveSheet
End Sub