Option Explicit
Public strData as String 'Переменная для наименования листов в книге

'Переменные для листов
Public shtData1 as Worksheet
Public shtData2 as Worksheet
Public shtData3 as Worksheet

'----Еще куча разных переменных, не относящихся к посту

Public Sub Links_Values()

strData = 'Здесь вызывается диалог с пользователем, где он кликает на один из листов в текущей книге
Set shtData1 = Thisworkbook.Worksheets(strData)
strData = 'Здесь вызывается диалог с пользователем, где он кликает на один из листов в текущей книге
Set shtData2 = Thisworkbook.Worksheets(strData)
strData = 'Здесь вызывается диалог с пользователем, где он кликает на один из листов в текущей книге
Set shtData2 = Thisworkbook.Worksheets(strData)

'----Дальнейшее выполнение макроса

End Sub