Show / Hide columns

I have recorded 2 macros on my worksheet one to show my values in dollars and one to show it in pounds. I have these values in separate columns and thought I could just hide the pound column when I click on the dollar button (with macro attached) and vice versa. The problem is that it seems to hide all columns and not just the ones I selected while recording.

	


















	
Sub Pound_Expenditure()
'
' Pound_Expenditure Macro
'

'
    Columns("A:H").Select
    Selection.EntireColumn.Hidden = False
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    Selection.EntireColumn.Hidden = True
    Range("J9").Select
End Sub


 

This is the macro code, any help would be great.