Excel - Hoja excel como variable de busqieda

Sub BuscarEnLibro()

'

' BuscarEnLibro Macro

' Buscar el Valor Seleccionado En la Hoja o libro 

'

' Acceso directo: CTRL+q

'   abro el archivo

         Dim WS_Count As Integer

         Dim I As Integer

         Dim R As Integer

         Dim Folio As String

         Dim Ubicacion As String

         Dim hoja As String

         Dim Celda As String

    Folio = Range("B2").Value

    'ActiveWindow.Close

    Workbooks.Open Filename:=ThisWorkbook.Path & "\CCC.xlsx", UpdateLinks:=0   ' esto si necesitas abrir algun otro documento para la busqueda si no solo te pones en la hoja del libro

    Sheets("wk36").Select

         'Ahora comienzo a recorrer para buscar los valores ... buscare unicamente en la linea

         ' Set WS_Count equal to the number of worksheets in the active

         ' workbook.

        WS_Count = ActiveWorkbook.Worksheets.Count

        R = 0

        I = 1

         ' Begin the loop.

         While (I <= WS_Count) And (Ubicacion = "") 'Con esto recorro las hojas

           'debo preguntar por el nombre y si el nombre no comienza con WEEK aumento y sigo.

            If Mid(ActiveWorkbook.Worksheets(I).Name, 1, 2) = "wk" Then

            c = 67

                'MsgBox ActiveWorkbook.Worksheets(I).Name

                Sheets(ActiveWorkbook.Worksheets(I).Name).Select

               Range(Chr(c) & "3").Select

               'Debo preguntar por las posiciones delas fechas.

               While (c <= 81) And Ubicacion = ""

                valor = Range(Chr(c) & 3).Value

                    If valor = Folio Then

                      hoja = ActiveWorkbook.Worksheets(I).Name

                      Celda = Chr(c) & "3"

                      Ubicacion = Ubicacion & "Hoja: " & ActiveWorkbook.Worksheets(I).Name & " En la Celda " & Chr(c) & "3"

                         Range(Chr(c) & 3).Select

                    End If

                    c = c + 2

               Wend

               End If

               I = I + 1

         Wend 'Recorro las Hojas

            MsgBox Ubicacion

    'termino de ver y

    ' Ahora debo colocar la Formulas en las celdas

        ActiveCell.FormulaR1C1 = aqui pones la formula y puedes Usar Hoja para concatenar valores asic omo celda.

End Sub