Sub Pobieranie_danych_z_arkusza()

Dim arkusz As String
On Error GoTo koniec:
arkusz = InputBox("Wpisz nr arkusza, z którego chcesz pobrać dane", _
                "Pobieranie danych z arkusza")
                             
MsgBox Worksheets(arkusz).Range("A1").Value

koniec:
End Sub

Sub Odszukaj_datę()

Dim szukana_data As Date
Dim komórki_z_datą As Range
Dim komórka As Range

On Error GoTo koniec:
szukana_data = InputBox("Wpisz datę, którą należy odszukać", _
               "Odszukiwanie dat", Format(Date, "d mmmm yyyy"))

Set komórki_z_datą = Columns("B:B").SpecialCells(xlCellTypeConstants, 1)

For Each komórka In komórki_z_datą
    If komórka.Value = szukana_data Then
        MsgBox "Szukana data znajduje się w komórce " & _
        komórka.Address(False, False), vbInformation, "Odszukiwanie dat"
        komórka.Select
        Exit For
    End If
Next komórka

koniec:
End Sub