I'm not sure what a private worksheet is, but something like this maybe
In a standard module - I called it mod_Global in the attachment
Option Explicit
Option Private Module
'only needed in in this module for InitRanges
Const wsDataName As String = "Sheet1"
Const addrNames As String = "A1:A10"
Const addrStreet As String = "B1:B10"
Const addrCity As String = "C1:C10"
'needed as public so other modules can use them
Public rNames As Range, rStreet As Range, rCity As Range
Public wsData As Worksheet
Sub InitRanges()
Set wsData = Worksheets(wsDataName)
Set rNames = wsData.Range(addrNames)
Set rStreet = wsData.Range(addrStreet)
Set rCity = wsData.Range(addrCity)
End Sub
In another standard module that contains processing macros
Option Explicit
Sub Process()
rNames.Interior.Color = vbRed
rStreet.Interior.Color = vbYellow
rCity.Interior.Color = vbGreen
End Sub
In ThisWorkbook
Option Explicit
Private Sub Workbook_Open()
InitRanges
End Sub