Boa noite,

Notei que nesse seu IF o usuario1 não foi definido. usuario1 é uma variável?

att,

Boa noite, tudo bom?

Notei que além de não preencher a variável "usuario1" você está usando a UltimaLinha1 como uma referencia a célula quando na verdade aquele "End(xlUp).Row" retornar apena o valor numérico referente à linha (1 para a linha 1, 2 para a linha 2 etc). Também vi que você seleciona todos os objetos, o que não é necessário. Segue abaixo uma sugestão de código:

Sub usuario()
Dim Ultimalinha1 As Long
Dim wsControle As Excel.Worksheet: Set wsControle = ThisWorkbook.Sheets("Controle de Acesso")
Dim usuario1 As String: usuario1 = "valor" 'insira aqui o valor que você deseja comparar

'1 - Ativar aba
wsControle.Activate

On Error GoTo Sair

'**Não é necessário selecionar
'Sheets("Controle de Acesso").Select

'2 - Verificar número da última linha
Ultimalinha1 = wsControle.Cells(wsControle.Rows.Count, "a").End(xlUp).Row

'3 - Realizar verificação
If wsControle.Cells(Ultimalinha1, "a").Value = usuario1 Then
    Sheets("plan1").Shapes("Imagem 1").Delete
Else
    Sheets("plan1").Shapes("Imagem 2").Delete
End If

Sair:
'Sheets("Controle de Acesso").Visible = False
End Sub

GabrSoares, funcionou, porem resolvi utilizar botões no lugar da ultima linha.

Sub usuario()
Dim wsControle As Excel.Worksheet: Set wsControle = ThisWorkbook.Sheets("plan1")

'1 - Ativar aba
wsControle.Activate

On Error GoTo Sair

'2 - Realizar verificação

If MainForm.usuario1Button.Value = True Then
    Sheets("plan1").Shapes("Imagem 1").Delete
    Sheets("plan1").Shapes.Range(Array("Imagem 2")).Select
    Selection.ShapeRange.IncrementLeft -244.4118110236
End If

If MainForm.usuario2Button.Value = True Then
 
    Sheets("plan1").Shapes("Imagem 2").Delete

End If

Sair:

End Sub

Boa tarde, teleguiado, reabri e desresolvi seu tópico! *(poderes de moderador)

Chegando em casa dou uma olhada!

Obrigado Fernando.

Neste post tem a planilha completa.

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23781

Encontrei uma rotina em que era possível e fica fácil vc identificar, como evitar utilizar o ".Select"

Option Explicit

Sub Retornar_Navegador()

'Grupo1
    With Sheets("Resumo")
        If .Cells(194, 5).Value > "0" Then
            MainForm.CheckBoxGrupo1.Value = True
            MainForm.CheckBoxGrupo1.Visible = True
        Else
            MainForm.CheckBoxGrupo1.Value = False
            MainForm.CheckBoxGrupo1.Visible = False
        End If

        'Grupo2

        If .Cells(195, 5).Value > "0" Then
            MainForm.CheckBoxGrupo2.Value = True
            MainForm.CheckBoxGrupo2.Visible = True
        Else
            MainForm.CheckBoxGrupo2.Value = False
            MainForm.CheckBoxGrupo2.Visible = False
        End If

        'Grupo3
        If .Cells(196, 5).Value > "0" Then
            MainForm.CheckBoxGrupo3.Value = True
            MainForm.CheckBoxGrupo3.Visible = True
        Else
            MainForm.CheckBoxGrupo3.Value = False
            MainForm.CheckBoxGrupo3.Visible = False
        End If

        'Grupo4
        If .Cells(197, 5).Value > "0" Then
            MainForm.CheckBoxGrupo4.Value = True
            MainForm.CheckBoxGrupo4.Visible = True
        Else
            MainForm.CheckBoxGrupo4.Value = False
            MainForm.CheckBoxGrupo4.Visible = False
        End If

        'Grupo4A
        If .Cells(198, 5).Value > "0" Then
            MainForm.CheckBoxGrupo4A.Value = True
            MainForm.CheckBoxGrupo4A.Visible = True
        Else
            MainForm.CheckBoxGrupo4A.Value = False
            MainForm.CheckBoxGrupo4A.Visible = False
        End If

        'Grupo5
        If .Cells(199, 5).Value > "0" Then
            MainForm.CheckBoxGrupo5.Value = True
            MainForm.CheckBoxGrupo5.Visible = True
        Else
            MainForm.CheckBoxGrupo5.Value = False
            MainForm.CheckBoxGrupo5.Visible = False
        End If

        'Grupo6
        If .Cells(200, 5).Value > "0" Then
            MainForm.CheckBoxGrupo6.Value = True
            MainForm.CheckBoxGrupo6.Visible = True
        Else
            MainForm.CheckBoxGrupo6.Value = False
            MainForm.CheckBoxGrupo6.Visible = False
        End If

        'Grupo7
        If .Cells(201, 5).Value > "0" Then
            MainForm.CheckBoxGrupo7.Value = True
            MainForm.CheckBoxGrupo7.Visible = True
        Else
            MainForm.CheckBoxGrupo7.Value = False
            MainForm.CheckBoxGrupo7.Visible = False
        End If

        'Grupo8

        If .Cells(202, 5).Value > "0" Then
            MainForm.CheckBoxGrupo8.Value = True
            MainForm.CheckBoxGrupo8.Visible = True
        Else
            MainForm.CheckBoxGrupo8.Value = False
            MainForm.CheckBoxGrupo8.Visible = False
        End If
    End With


End Sub

Bom dia!!

Fernando, tem um pequeno problema que esta acontecendo quando fiz essa alteração. As Checkbox não atualiza toda vez que clico em algum grupo. So atualiza quando clico no Resumo.

Eu só enviei um exemplo, de todo o seu código, escolhi a rotina mais simples, Retornar_Navegador....
Esta funciona. Se há caixas que não estão mudando conforme vc previa, não é por causa da alteração, deve/pode haver outro motivo...
O complicado é que não tenho como verificar agora...

mas é complicado, vc me envia um arquivo enorme, com um código enorme e fala:
"como faz pra referenciar uma panilha oculta?"

Preciso que vc me diga qual rotina vc quer melhorar.... E sugiro que crie um novo tópico! melhor... assim cada tópico fica com uma ssunto diferente...